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ABSTRACT 



This thesis describes the design^ implementation and user 
interface for an Instructional Software Information System 
(ISIS), The existing volume and increasing rate of growth 
of computer software production suggests the need for a 
catalogue procedure to help programmers find existing 
software to reduce redundant programming. 

The purpose of the ISIS is to provide an online 
software catalogue which does not require either prior 
instruction or familarity with keyword lexicons* Using 
ISIS* a user may record the characteristics of new 

software* and make searches for existing software by 

specifying its character^ st ics, Ch a rac t e r i s t i c s are 

specified by selection from a succession of menus* 

ISIS is imolemented on a PDP-11 computer operating 
under the UNIX operating system using the INGRES data 
base management system. It is written in the QUEL query 
language embedded in the programming language C* 
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IN TROOUC T ION 



A. IN 1 RODUC T ION 10 THE PROBLEM 

To Nay in the co™ outer world there is an enormous amount 
of software, written on many different subjects. Sometimes 
it is feasible to adopt a oroqram on nand to a aiven 
problem; sometimes it is not. Even when new software must 
be created, the joo can often be made easier if advantage 
is taken of existing software tools or of example programs 
Performina anal aqous functions. 

Fhe existing volume and increasina growth rate of 
computer software demands effective, easy to use catalogue 
procedures . vV hen a oroaram^er is tasked to write a new 
program, he should be able to begin by verifying that 
software performing tne indicated tasks does not already 
exist.- 

Many computer f i r t s supply on line or off line 
catalogued subroutine lioraries. But these library 
catalogues are not general; t h«y are catalogues on specific 
subjects. A general all-encomcassino catalogue is desire d, 
and it should be one which can ne conveniently extended to 
include new software written or acau i red locally. 
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C. PUSSISLt SOLUTIONS 



Solutions to tne problem can take two forms; an offline 
catalooue, or an online catalooue. After preoarer ion^ an 
offline catalooue is narH to unoate. An online catal oque is 
easv to use ana maintain, but terminal access is required. 
In an educational envirorimenr this annroach is especially 
appeal inn; it encou races the students to use software tools 
and oives them h e ready access to a broad ranqe of 
software which they would otherwise have only after qaininq 
considerable orcnrarm na experience. Learning to take 
advantage of software tools is most important for computer 
science students, especially durinq the later quarters of 
the curriculum. 
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APPROACH TAKEN 



l J , 



A. bASiC INITIAL SPECIFICATIONS 

After the decisions to use an online catalogue was 
made/ the follow inn Questions needed to be addressed: 
a • IV hat functions nusf the s v s t e m cerfom ? 
b. how should the system communicate with the user ? 

The answers to these questions are really basic 
functional soeci f i c a tiers: 

The system has to search system resident listings 
accord i no to user commands. The user has to be able to add 
new listinas and also to be able to channe his 1 i s t i n q s . 

The system has to be v°ry » a s y to use: the user should 
have no trouble even the first time he uses it. The 
encroach taken to accomplish this was to make the system 
entirely self promotion. No command vocabulary is used/ 
instead/ the system as<s nuestions and provides/ with each 
Question/ a complete menu of responses. This philosophy is 
incorn pat able with the keyword approach which is a common 
feature of automatic catalooinq systems. 
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OAT A STMJCTUPtS 



At 1 1 1 s ooint" the question of how to desiqn the 
structure of the data represent ina the listings was 
addressed. The characteristics of importance are: 

(1). tasy user understandiri 1 i ty ^ or else usability 
wi t h o u t unoerstandino. 

( ? J . The ability to auicH v identify listings whose 
characteristics include those s o e c i f i e q by the user. 

(3). p easonable storage density. 

L i st i no lookup was expected to occur much more 
freauently than the creation of new listings or the 
modification of old ones; consequently the rapidity and 
complexity of listing structure updating was not considered 
to be an important cr i ter i an for data structure choice. 

The 'ollowinci alternatives were considered: 

1. Tree type structure 



In a tree form software directory* the leaves would be 
individual listings* and t h p nodes would each be a common 
ancestor o f all listings with a common characteristic. 

One fin os listings by starting at the root and making 
choices at each node* until reaching the listings desired. 

Advantage: 

The mpchanism is easy to understand. 
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U i sa^vantaaes: 



(1) User is forego to answer the questions in a 
particular order. 

( d ) Pointer implementation is troublesome. 

Table type structure 



One table with two e i mens ions is created; rows would 
corresoono to program listings; columns to characteristics, 
b hen a listing has a aiven characteristic^ a mark is d laced 
in the appropriate cell in the table. 

Advent ages : 

(1) Easy for u s p r to cororehend. 

(2) User can specify characteristics in any order. 

0 i sadvantaoes: 

11) A large volume of storaae is required. 

( £ ) A variable dimension table is required 

because both listinqs and characteristics 
ray be addec as the database grows. 

( 5 ) Program purpose classification appears 

to be most conveniently organized as a tree. 

(4) User needs to know the characteristic 
vocabulary in advance. 
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M vn r 1 d structure 



A corproTi se between t h e ^ ree and tabular anoroaches 
was sought in trie f o r ^ c * a hybrid structure- Here the user 
may oicture a table of the form explained a o o v e / and he may 
think of the search process as one of choosing blocks of 
columns to omit and columns to save/ successively refining 
the choices/ until the listinos are narrowed down to a 
small number sat i sf y i no the characteristics he needs. The 
selection of characteristic columns is organized in a tree/ 
though the user need not he aware of this. His first choice 
the first level of the tree - is this: from among all of 

the independent cateoories of software classifications he 
chooses those from arrona whose subdivisions he wishes to 
choose. For example a user whose anal is to find a sort for 
the IBM. 3 b 0 will look over the first menu/ containing 
" language" / " hardware"/... and will soecify hardware for 
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The physical form chosen for this structure was a tree 



where each node contains a table of names of its 
subordinate node fables and names o * software listinqs 
which have the characteristics of that node but are too 
genera! to be listed amona the node's subordinate nodes* 
(Notice that a given listina will tyoically be referenced 
in several different marts of the characteristics tree/ 
most likely once under each major subcategory of the root.) 

The relational database mod^l offered an easy mechanism 
for maintenance of these node tables. 

At this ooint it was decided to use the INGRES database 
m anaaement system available on the MRS computer laboratory 
PDP-11 computer under the UNIX ooerat i no svstem. 

C. LANGUAGE SELECTION 

The system proarams are written in QUEL (the INGRES 
auerv 1 annuaoe) embeddec in the programming language C. 
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CLASSIFICATION OF SOFTWARE 



A plausible/ intuitive software classification was 
souoht hut no ex i st i no s v s t e m seeded to be entirely 
suitable; moreover/ they differed widely suqqestinq that 
classification qoodness may be in some deqree relative to 
the environment is wnicn the catai ooue is to employeed. So 
it was oeculed to imolement a variable type of 
classification which eacn user eoency can confiqure as it 
sees fit* 

Here is an e x a m o 1 e classification: 

1- Comouter software tools 
Ooeratina system 
C o rr. o i 1 e r 
Lenquace 
Time shari n a 
i v ‘i c roprocrammi no 
Debunai no aids 

?. - Data raniou latino tools! 

Text eoi t i no 

Sort 

l v >roe 

Database 

Test data oenerators 

Data structures like stack, queue etc. 
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S - i v! a t h e m a t i r s 

i- a t h . functions 
Probe r* i 1 i t v 
0 Derations researcn 

■'4 - easiness applications 
t.nni nepri no 
f- i n a n c i. a 1 
Inventory 
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OFS IGN FEATURES 



1 I I 



IbIS is im olenen ted as an INGRES database. A tree 
structure is simulated us inn relations. A small 
demonstration database is shown in figure 1. 

The root of the tree is the " main table” relation which 
is loaned at system installation time and can not be 
chanced by the user, M a i n t a b 1 e tuples show the main 
branches of the tree: these are the ind°oendent categories 
of software characteristics/ like language and hardware. 
Every node of the tree is a relation with two fields/ 
ridf recorn IDT a n o cm a me (class record name). Rid is used 
as a key to all actions. If a rid is eoual to zero/ it 
means there is a relation with that name which further 
subdivides the current relation. If a rid is qreater than 
zero f it means crnarre is the record name itself. One 
1 i stinc may ( a n a usually will) be found recorded in more 
than one branch (relation). There is no information about 
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Figure 1. ISIS demonstration database "isisl 
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inure d • t x a "n o 1 e o * M record f i I and " w h r " relations 



CODING AMD TESTING PHASES 



f V. 



i he J3I3 svsfec was designed in a too down manner. 
Fir s r the main frame of the system was designed, coded ana 
f pstea. Then the or innary function of the system, the search 
program, was desianeo, coded and tested. As the search 
nroaram decodes 1 a r a e , some oro Flems neaan to surface. The 
C compiler beam to print errors about undeclared variables 
which were in fact declared. At this ooint the output of 
tGUEL orecomoiler was checked and it was seen that similar 
statements in different narts of the source code were 
translated into C as different codes. When the 'source was 
divided into smaller files, the EQUFL orecompiler seemed to 
work correctly. 

After compilation was accomplished the testing began to 
take much more time than anticipated. The author was 
unoreoared for the deliberateness with which INGRES 
functioned. 
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EuUEL does nor allow declaration of inteaer arrays. For 
this reason the int^ner array used as the input buffer was 
declared as a C variable and then, when required^ each 
value was taken one nv one from the C array into an EQUEL 
varianle for use. 

The search p r o o r a m is comooseo of aonrox i matel y 10 00 
lines. It may cause interactive problems if run 
concurrently with add* delete and modify programs. The 
search routine is the key component of [SIS, It is possible 
to operate a reduced ISIS by runninq just the search 
function* maintaining the database (adds* modifications 
and deletions) bv usino the INGRES query language QUEL. 
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CONCLUSION 



V , 



A. SYSFtM CAPABILITIES 

The system has the f o I I o w i n a capabilities: 

a. Search: 

The system searches for resident listings according to 
user specified qualifications. The user can choose up to 25 
qualifications for a given search, 

o , Aria: 

Any user can add a listing; there is no need to get 
"add" permission from the ISIS manager. The principle 
restriction for addition is that the depth of the tree can 
be a maximum of around 2 0 arcs. U hen a listing is created* 
the listing "owner" assigns a one letter oassword. 

c . Modify: 

The owner of a listing can modify either the listing 
description and/or t h e "where found" information. 

d . Delete: 

Tna owner of a listing can delete his listing. 

Currently t h p ISIS system can has a maximum of 32767 
listings because listings ar a assigned 2 bytes unique ID 
numbers, bv Changing all "rid" attributes to i 4 in relation 
declarations/ the system could hold up to 2*174*483*647 
listings. 

Further information may oe found in the user’s manual. 
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b . HRuSLEMS wITh THE SYSTEM 

Only one user should use the search program or add; 
delete and modify o r o a r e m af a given time* If more than one 
user is usina one of these# ISIS may not work correctly 
because so^e temporary ISIS information is stored in shared 
I '\l G h E 6 relations. 

System response is very slow even when the listing 
database is miniscule. This is apparently a characteristic 
of the INGRES system. 

It is imoosible to crint a hard copy of the system 
listings in catalogue forT at present. Each branch point is 
emoodied in a relation and all relations can be printed but 
it is hard to extract a catalogue form from them. By 
printing "recoraf i 1 e M an i " whr" relations all listings in 
the system can be s°en as a list form. 

It would be preferable to use a more efficient; faster 
database system to implement ISIS* or not to use a database 
system at all. 
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C. POSSIBLE OTHER USAGE AREAS 

The ISIS system was designed with software cataloguing 
in mind; rowever the s v s t e m could be used in many different 
applications^ for example* the assignment of personnel to 
joes. Personnel characteristics could be put into relations 
a n o when a oerson is needed for a specific job* he can be 
founo through the search orocess. 
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APPENDIX A 

U S t P ' S REFERENCE MANUAL 



The ourooses of this manual are threefold: 

1 . To introduce the program to facilitate maintenance. 

2. lo Provide information to the ISIS system rranaqer to 
enable him to '< e e o trie system efficiently configured. 

3. To provide the user with mo re detailed Knowledge of 
the system and to list the error conditions. 

Running the system is verv easy and generally no 
previous experience is reauireo. The first time user should 
not need to read this manual; he should simply log in as 
" i s i s " and then tyoe "ao" . 
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INTRODUCT ION 



Instruct ional Software Information System (ISIS) is an 
online catalogue esoecially desianed for computer software* 
Usina ISIS a user mav record the existence and 
characteristics of a new prooram, and mav make searches for 
existing software by citina the characteristics desired* 
Characteristics are specified by selection from a 
succession of menus. 

ISIS is imolemented on a PDP-11 computer operating 
under the UNIX operating system using the INGRES data base 
manaaenent system. It is written in the QUEL query 
language embedded in the programming language C. 
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ISIS PROGRAMS 



1 1 . 



A. GENERAL VIE'M 

The system is com nosed of three oroqrams: 

1. M i i n p roqram ( isismain.c ) 

This proaram is written in the I anauaqe C. Upon login 
as " i s i s " # main is executed automatically. Then# according 
to user instructions# control is transferred to one of the 
oroqrams in figure S. Isismain.c is very straightforward 
and neeos no explanation. 



isismain.c 
main oroaram 



i 

i 

i 



src.Q 

search oroaram 



i 

i 

i 

i 

a dm . q 

Add-Delete-Modi fy 
o roq ram 



Figure 5. ISIS oroaram hei rarchy 



- 27 - 



?• Search Program ( src.q ) 



This prooram is written in QUEL (the INC? RES query 
lanouaoe) and C , It does a search of ISIS software listinqs 
acccroinn to user n u a 1 i f i c a t i o n s and di sol ays the results. 

3. Ado-Delete- Modify ProQrar ( aam.q ) 

1 h i s proaram is also written in QUEL and C . It allows a 
user to aad new listinqs to the system. It also allows a 
listino originator to modify or delete an existinq listing. 

4 • Date Structures 

Ire orinciole ISIS oata structures are described below: 

a. Ihe relation "recorof i 1 e" contains a master file 
of the 1 i s t i n a s t with each identified by name and uni aue ID 
number (RID), 

o . Information about where to find the software 
corresoonoino to the list inns is in the "whr" relation/ 
identified Py unique ID number, 

c. The main software characteristic classes are the 
tuples of t n e " m a i n t a b 1 e " relation, 

d. a variable set of "node" relations embodies the 
tree structure. 






ha c h no d e relation contains: 

1. Li st i na names and ID numbers, 
am/or 

£ . F ne names of dependent node relations* 
identified Dv ^ID's of zero. 

B. GEAhLH PfcOGPAM 

l. General View 

The search oroaram searches for listinqs of existing 
software meeting the characteristics soecified by the user. 
The user specifies these oy answering questions posed by 
ISIS. 

System execution is slow even when the listing database 



i s 


Short ; 


to orevent 


a 1 onq 


search over 


a short 


list/ the 


user 


may o e 


willing to 


scan a 


list of all 


of the 


records in 


the 


system. 


For this 


reason 


there is an 


option 


to display 


a i 1 


recorns 


at the beai 


nni no. 









A general flowchart of the search crogram is qiven in 
figure A . After the user specifies some qualifications* 



the 


system 


rep 1 i e s 


how many list 


i ngs 


meet 


the 


dual i 


f i c a t i o n s / 


the i j 


ser may then either 


see 


the list 


i ngs 


w h 1 C n 


meet hi 


s oua 1 i 


f i cations or he 


may 


change 


h i s 



aual i tications. 

After one search has been finished* the user may 
continue with other searches or he may exit from the 
system. 
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Figure 4. The general flowchart of search program src.q. 
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intro 
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Figure 5* The functional diagram of the search program. 




The functional diagram of the search proaram is shown 
in figure S. 

The source code for the search proaram is contained in 
three files. 

a . File s r c • a 

I ne code in this file Performs the actual search; it is 
composed of the following functions; 



main : 


calls i nt rod and mnsrch functions. 


intro : 


prints the introduction and invokes INGRES 
using the ISIS database. 


mnsrc • 


calls the search routine, then exits ISIS. 


search: 


monitors the search process bv calling 
functions. 


count l : 


counts number of listings in the system. 


d i o 1 1 : 


displays all listings in the system. 


ofrainl : 


monitors the Qualification process. 


orelsl : 


puts relations onto stack 1. 


a s 1 s 2 : 


one by one gets a relation name from stack 1, 
qualifies it and puts results onto stack 2. 


a m a i n 2 : 


monitors the rest of the Qualification. 


c o s 2 s 1 : 


copies stack 2 to stack 1. 


o raua 1 : 


prints current Qualifications. 


d e 1 e t q : 


deletes Qualifications from stack 1. 


a i s o 1 2 : 


displays listincs according to qualifications. 
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b • File encsrc.a 



This file is included in src.a at compile time. 

Tne reason tne searcn oroaram is separated into two 
files* src.a and encsrc.a, is that the EQUEL precompiler 
noes not seem to work correctly for long source files, 
this file provides tne following functions: 



Q 

• • 


displays 0 tyoe qualifications.- 


c n t t b 3 : 


counts taole3 tuples. 


d i s t b 3 : 


displays listinas in t a b 1 e 3 • 


g e t n m : 


gets a listing number from terminal. 



c . File c o m . a 

This file is common to both the search program and the 
A d d - 0 e 1 e t e - < V| o d i f v program. It provides tne following 



f unc t ions: 




c y 1 b r c : 


evaluates the first usage of search program. 


h e 1 p i s : 


prints information helpful to a user who has 
"lost his way". 


greadc : 


gets a character from terminal. 


areadn : 


aets a maximum of ten integer numbers from 
terminal . 


m s qe r 1 : 


prints an error message. 


i n f o n e : 


prints ISIS information of a general nature. 



<?. Specifications of the Search Program 

A search is performed by specifying the characteristics 
of the souaht for software. As the search continues* these 
characteristics are successively refined. 
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Search is done on a simulated tree 



structure. tvery 



node of the tree is a relation. The root of the tree is the 
" maintable" relation. In order to beoin the search process# 
a user must cnoose at least one branch. 

The qualification Process uses two qualification 
stacks# eacn 25 elements lone# so the user can have a 
maximum of 25 qualifications at any one time. Stack 1 is 
used as the main stack? stack 2 is used as an auxilary 
stack when changing Qualifications, 

Each stack record has two fields: 

a, qualification name 

b. Qualification type# which has value M # to or D, 
These cooes are used to specify actions to be performed 
when the stack is Processed. 

M : this Qualification shows miscellaneous tuples which 
are tuples with ID numbers Greater than zero in the given 
relation. 



ft : Instruction to write all the tuples of a given 
relation * h i c h have an ID numoer greater than zero. 

D : Instruction to display all tuples of this relation 
Ahich are greater than zero# - there exist here some tuples 
which have 10 numpers ecual to zero# meaning there are 
further subdivisions. So D , in effect# will cause branch 
recoras to be displayed also. 
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The di sol ay function ( di s o 1 ? ) uses stack 1 records 
ana accorcnnn to the Qualification tyoe it employs 
different methoas to find list i nos which meet all the 
specific Qualifications* 

To disolav v ana ft tvoe Qualifications* three table 
relations nameo tablel* table? and tablei are used. Tablet 
and tabled are used for listina 10*5 which meet one 
qualification. Mote that the disolay process is an AND 
ooerat ion not an 0 ^ operation, so t a b 1 e 3 identifies 
listings which meet all previously processed 
dual i fi cations. 

It is more difficult to display 0 tyoe qualifications* 
which have branch relations* because it is also necessary 
to find out and evaluate all listings in the branches. For 
this reason* in addition to the three table relations 
mentioned aoove* two more relations named tabledl and 
tanl ea? are used. All listina rid’s for a given 
qualification are saved in taoledl* and subbranch relation 
names are saved in tabled?. One tuple is taken from 
tabled.?# if this tuole shows a branch, it is evaluated and 
the resultino listina ID's are out into tabledl; branches* 
if any, are out to tabled? aaain, and the orocess continues 
until tabled? is emcty. At this time tabledl has all 
1 i st l ms which meet D tyoe Qualification. 
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Only one user at a time can erroloy this Part 
oroaraTi; otherwise these tar les oecorre confused. 
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c 



A l) 0 - D t L F f F - / 0 0 I F y PROGRAM 



1. General View 

Ihis oroararr is used to add new listings into 
the system ano to delete or modify existing listings. A 
general flowchart of tne proaram is aiven in. figure 6 and 
the functional diagram in figure 7 . 

The source code of the oroaram is composed of the 
following files: 

a . File a im . a 

Ihis file Performs add, delete/ and modify actions and 
invokes functions in the other files. 

File a dm. a contains the following functions; 



main : 


calls infohe and branch functions/ and invokes 
the database. 


h r anc n : 


prancnes to add/ delete or modify processes. 


ad i : 


monitors add process. 


o e t o a r : 


nets parameters for a listing from terminal. 


aor f wh : 


aooends listings to recordfile ana whr 
relat ions. 


ad iris: 


adds listings to relations bv callina other 
funct ions. 


p 1 j t s t r : 


outs relation name chosen by user on the 
stack. 


ocurcl : 


prints current class and suhceteaor i es , 
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j main adm.q 
j prits information 

i 




Figure 6. General flowchart of Add-Delete-Modify Program adm.q 



38 



adm 
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Figure 7. The functional diagram of Add-Delete-Modif y program. 





adocur : 


ados a listinq to current relation. 


newDrc : 


adds a listino to a newly created subcateqory 
relation. 


e x i o re : 


adds a listinq to one of the existing 
branches. 


b . File 


e n c a d m . q 


Inis f i i 


le is included in adrn.q at compile time. These 


two files 


were split for the same reason that the search 


routine was 


divided; the E Q U E L precompiler seemed unable to 



process both at once. 

File e n c a d m . q has the fol 1 owi no functions? 



a e 1 m o a : 


gets parameters/ and monitors delete and 
modify processes. 


aetnurn: 


gets a listinq ID number from the terminal. 


d e 1 e t e : 


beainninq cart of the delete process. 


orodl t : 


deletes a 1 i s t -i n q from a relation. 


modi f y : 


beainninq part of the modify Process. 


mdewh : 


modifies listinq description and where 
infomat ion. 


c . File 


c om . a 


This f i 1 


te contains functions common to the search and 



A a d -Delete- to o a i f v oroarams. For more information refer to 
the search p r o a r a m on r a a e 3 ? . 



2 . Specifications c f Aad-Delete-Modifv orogram 

The ADD process user can enter his listing into 
ex 1 st i na characteristic relations or he can create new 
Orarch relations and put the list i no into them# 

The ADD process can stack ud to a maximum of 2 S 
relation names# This coes not mean the user is restricted 
to putting his listings into fewer than 2b relations* but 
rather that he can not have more that 25 further divisions 
identified ana pending at anv one time. 

hen a new relation is created as a new branch* the 
save command must oe performed. This is done in file adm.q 
by the newbrc (new branch) function. The date supplied to 
the S A v F command must be advanced periodically by the ISIS 
manaaer; otherwise* when the date is reached* the relations 
may be inadvertently curqed. It is probably best if the 
save date is identical to that used to save other 
relations. 

DELETE and MODIFY processes at the beginning use the 
same del mod function to identify the owner of the listing 
which is to be aeleted or modified. For this reason the 
user aives a listing ID number and the system checks to 
find out if there is any record with that number. 
Afterwards the oassword is checked* the password was set up 
durinq the ADD process when the listing was created; it is 
one character. For example it may be " . M (fullstoo) or any 
letter or digit. After the correct password is received* 
the delete or modify process can begin. 



DELETE PROCESS: 



This orocess iel °tes a listing f r o m ’’recordf i I e' f / the 
master listing relation^ ana from "whr"f the where found/ 
relation/ and begins to search the branch relations 
starting at the root. iNhen the listing is found recorded in 
a relation/ the subbranches of that relation are ignored. 

i’l'nen a listing is deleted f r o m a relation/ if there are 
no more listings in that relation/ the relation is also 
destroyed. If the oarent has no entries other than the 
oest roved relation then the oarent relation is also 
destroyed; otherwise the child relation name is deleted 
from the parent. 

fhe delete orocess emoloies the same stack used by the 
add process. The function dumwrt (dummy- write)/ which 
nrints the too S elements of the stack/ was used in the 
testinq chase of the program and was left in. It can be 
reactivated ny removing the two slashes "//" (comment) 
previous to dumwrtO. B v changing 5 to 2 5 in the "for" 
statement in dumwrt / all stac* elements can be written 
during the delete and aad processes. 

MODIFY PROCESS: 

It is only possible to modify listina description and 
where information. If the user needs to modify the tree 
entries tor a listina he must first use DELETE to remove 
the listing entries and then use ADD to create revised 
ones . 






SYSTEM GENERATION 



III. 



(his section explains how to install ISIS. ISIS 
requires the database manaqenant system INGRES which 

requires the U N IX onerat inq system which runs on PDP/11 
hardware . 

A. DATABASE SETUP 

The ACTUAL software database is named M isisO". 

If a DEMO N STPATIOM oaf abase is desired, it should be 
named "isisl". A demonstration database is not necessary. 

The oatacase is created as follow. (The M % " sign is the 
UNIX prorot symool) 

First mount INGRES. At M P S this is cone via a UNIX 
shell file, invoked as follows: 

% /usr/inares/sysmnt.sh 

Now create database isisO: 

% c r e a t d o isisO 

Invoke INGRES ooeratina on the newly created database: 

Ingres isisO 

The INGRES prompt is "ao . 

Now create the main listino and location relations and 
the "root" relations for the atribute tree: 






create 



recorclfi 1 e ( r i r* = i <? 



rnaine = c l?f rdes=c50, pswrd = c l ) 



create whr(rid - i2# rdes = c5 0) 
create maintaoleCcrname = c\2) 

Now " < Vj A lU 1 A RLE" f the root relation# must be loaded 
with the names of its direct aescen dents, 
her example, 

apoend to maintable(crnam^ = "corrouter") 

N o w # “comouter" is apoenoed. branch names have a 
maximum of 12 characters. 



After f i 1 1 i n a the rain table# create the corresponding 
node relations. 



For example? 
create comouterC 
Certain other re 
temporary storace dur 
f o 1 lows: 



ric - i 2 # ername - 
I at i ons which are 
i nc execution must 



c 12) 

used by ISIS as 
also be c reat ec»# as 



create 


t ad 1 e l ( r i d - 


i 2) 


c re a t e 


t ab 1 e2 ( r i d = 


i 2 ) 


create 


t a o 1 e 3 ( r i d - 


i?) 


create 


t a b 1 e d 1 ( r i d = 


i 2 ) 


create 


t ab 1 ed2 ( c rname 


3 



AM the essential relations have no w been created 



DO 



NOT FORGrl to "save" relations ud to a reasonable date/ for 
e x a m o 1 e 1 year ahead. For example: 

save relationname until j an 30 19/9 

Reoe a t this c c m m a n c for each relation which has been 
created, 

Now the database isisO is ready. If it is desired to 
create the isisl demonstration database, the procedure is 
repeated as aoove, excect that the first command would be 
£ create isisl 
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B. COMPILATION OF PROGRAMS 



To compile the main program in file isismain.c use the 
command 

%cc isismain.c 

Now rename the output " i s i s " i 
% mv a. out isis 

To compile the search proqram: 

First use the EQUEL precompiler for the files which are 
used by search . 

X equel src.q 

The output is in file src.c 

X eque 1 enc s rc .q 

The output is in file enc src.c 

X equel com.q 

The output is in file com.c 

These are all C files. Compile them using the EQUEL 
1 i b ra r y : 

X cc src.c - 1 q 

The output is in file a. out? rename it "isissrc'U as 
f o 1 lows: 

X mv a. out isissrc 

"isissrc" is an executable file which, when invoked. 



performs an isis search 



To compile the Add-Delete- Modify program: 



First, use the equel precompiler for the files 
are used by this program. 

% equel adm.g 

The output is in file adm.c 

% equel encadm.q 

The output is in file encadm.c 

The file com.c was already created during 
comp i 1 a t i on . 

Now compile the program, using the EQUEL library. 
% cc adm . c - 1 q 

The output is in file a. out. 

Rename it "isisadm", as follows: 

% mv a .out i s i sadm 

Now/ "isisadm" is an executable file which/ 
invoked/ performs isis add/ modify/ and delete operat 

Now remove unnecessary files: 

% rm src.c encsrc.c com.c adm.c encadm.c 

Isis is now ready to use. 



which 



sea r c h 



when 

ions. 



C . SIMPLE TUTORIAL 

Inis tutorial is oreoarea to a i v e the user a qeneral 
idea of ho* the s v s t e m interacts with the user. This 
tutorial covers the search process only; it does not chanae 
the system resident aata. It uses the ISIS demonstration 
database named " i s i s 1 " w K ose relations and linkage schema 
are shown in figure 1 on page 16. 

-Tyoe one of the fellow inn numbers in " " 

"1" to SEARCH ISIS records 

"2" to ADO new TSIS, DELETE or MODIFY existing ISIS 
reco rds 

"3" to QUIT ISIS 

no > 

1 

ISIS means Instructional Software Information System 
written at i\ P S 

* * * when you need help, at some key Point 
tyoe M n " to net HELP *** 
good luck 

For rrcre information tyoe "yes" 

Otherwise PUSH RETURN KEY qo > yes 

This program is an online software dictionary 
There are t^o major croarams: 

1. SEARCH prooramf 

User can find existina software by conversing with 
the computer. 
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2 . A 0 0 , u t L E f E , M 0 0 J F Y orooram; 

User can advert i se his own software by listing it 
with the system. Provisions for 'nodi f y i nq and deleting a 
I i st i nn rare included. Both oroarams are easy to use. They 
do not need previous experience. Just type answers after 
" q o > M marks. 

The oroarams are written in data sublanguage QUEL, 
supported oy INGRES oata base management system, and the 
orcgrammino language C. 

-Type one of the followings in " " 

"l” to begin ACTUAL usage 

"2" to beoin 0 E M 0 1\ S T R A T I 0 N usage 

ao > 

2 search in progress ... 



There are 7 records aoout miscellaneous programs in the 
system 

•Type one of the following numbers in " " 

" l M to QUALIFY your need 
" 2 " to DISPLAY all the records 

ao > 

1 



-To QUALIFY vour need 

T y o e one or ^ o r e of the following numbers in 
separating oy commas 
You MUST tvo^ at least one 



1 



1 anguaoe 



-To further J U A L I F i * * 1 anquaae * * 

ls/oe one or more of ^ he fol lowing n u m o e r s and/or letters 
n " " 

"1" algo I 
V oascal 

" n u iiOT to want qualify 
ao > 

1 



-To further QUALIFY * * area * * 

Tyoe one or m o r <=> of the following numbers and/or letters 
n “ " 

"1" sof t waretool 
" P " military 

" m M M i SC E Ij-E ,N iE OUS o t h e r t n a n a no ve 
" n ” \ 0 I to want qualify 

go > 

1 



Uo to now, your qualifications are the following? 
1 - a l io 1 

<? -softwaretool 



-lyoe one of the following nunners in " " 

" 1 " to DISPLAY recoMs which meet vour 



qual i f i c a t ions 



" a 



Co further QUALIFY 



"3" to DELETE so r ne of au^l i f icaHons 
"a” to bEGIN QUALIFICATION at the ben inning 
P R t 5 E R V IN G present qualifications 
" h M HLL P for other than above 

go > 

2 

Uo to now, /our qualifications are the following; 

1 - a 1 q o 1 (has NO more qualification) 

2 -soft waretool (has NO more Qualification) 

-Tvoe one of the following numbers in " " 

" 1 M to DISPLAY records which meet your 
qual i f i cat i ons 
"2" to further QUALIFY 

'* 3” to OELETF some of qualifications 
M/ 4 M to SEGIN QUALIFICATION at the beginning 
PRESERVING ore sent qualifications 
" h " HELP for other than above 

go > 

1 

processing qualification: alaol 

processing qualification: softwaretool 

At this coint reduced to * 2 * records 

i here are * 2 * records which meet qualifications 

-Type one of the following numbers in n " 

"l" to SEE recoros which meet qualifications 
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" 2 " to RETURN anc C H A U G t vour qualifications 

qo > 

1 

10 s record name desc r i nt i on 

55 ! merqe ! zeroes h 0 char long records according 

to <ey 

135 i count inosort ! sorts *0 char long records according 
to key 

-Tyne one of tne followina numbers in " " 

" 1 " to see A' HE RE information to find a specific 
r e c o r a 

"2" to RETURN 

go > 

1 

-Give only one of the ID numbers which have been printed 



qo > 




1 25 




ID 3 


where 


125 


see orof. Smith 



- F yoe one of the followina numbers in " " 

" 1 " to sen ! aj HERE information to find a specific 
r e c o r d 

V" to REF URN 

go > 

2 



: Jo to now, your qualifications are the followina; 
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1 - 3 1 a o 1 



(has U 0 rrore Qualification) 4 records 



2-softwaretool(has N U rrore Qualification) 2 records 



- ] v o e one of the fol 1 owi nc numbers in H " 

"l" to DISPLAY records which meet your 
qualifications 
" 2 " to further QUALIFY 

"3" to DELETE some of Qualifications 
"a" to PEG Id QUALIFICATION at the beq inning 
PRESERVING nresent Qualifications 
M h M hELP for other than above 

QO > 

3 



- T yoe 

one or more of the Qualification numbers which have 
been orinted on rhe screen just before/ separating by 
commas 

OP 

"n" MOT to want DELE IE 

QO > 

3 



Up to now/ your Qualifications are the following; 

1 - a 1 q o 1 (has MO rrore qualification) 4 records 

“1 vne one of the folio w i n a numbers in ” " 

’’ 1 " to DISPLAY recoras which meet your 
qualifications 
" 2 " to f urther QUALIFY 
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3 



to 0 F L t T E so^e Qualifications 



" V to BEGIN QUALIFICATION at the beainnmq 
P P E 3 E K V I f 1 G present Qualifications 
" n " HELP for other than above 

go > 

4 

-To QUALIFY your neec 

Tyoe one or more of the following numbers in " M 
senaraf ina by commas 
You MUST type at least one 
" 1 11 language 

”3" area 

oo > 

2 

-To further QUALIFY * * area * * 

Type one or more of the following numbers and/or letters 
l n " " 

"I" soffwaretool 
" 2 ” military 

" m" Mi SC ELLEN LOUS other than above 
" n " NOT to want aual i f y 
GO > 

a 

Up to now/ your Qualifications are the following; 

1-alaol (has NO more qualification) 

2 - m i 1 i t a r v 
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-fyne one of the folio win a numbers in 



"1” to DISPLAY records which meet your 
qualifications 
" 2 " to furrner QUALIFY 

M 3 M to DELETE some of Qualifications 

“ <4 " to BEGIN QUALIFICATION at the bea inning 
P R t S E P V I iM G presnnt qualifications 
"h" nLLP for otner than abotfe 

ao > 

a 



-fo further QUALIFY ** military * * 

Type one or more of the follow mo numbers and/or letters 
in " " 

"1" navy 
" 2 " airforce 

" n" NOT to want qualify 
ao > 

1 * 

Uo to now; vour qualifications are the follow i no; 

1-alaol (has NO more Qualification) 

2 - n o v y 

-Tyne one of the follow inn numbers in " " 

" 1 " to DISPLAY records which meet your 
a u a 1 i r i c a t i o r s 
" 2 ” to further QUALIFY 

" V to DELETE sere of qualifications 
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"4" to w EGiN QUALIFICATION at tne bea inning 
P P t S t P V I N G present a u a 1 i f i c a t i o n s 
M h ** rtLP for other than above 

no > 

I 

orocessina qualification: a 1 a o 1 

processinc qualification: navy 

At this point reduced tc * i * records 

There are * 1 * records which rreet qualifications 



Tyne 


one 


of the 


following numbers 


i n 


H it 


M J M 


t o 


SEE re co res which 


meet 


qua 1 


i f i c a t i o n s 


M II 


t o 


R t T U R M 


ana CHANGE 


your 


qua 1 


i f i c a t ions 



qo > 

1 

U) $ record name description 

190 ! naviaation ! Iona ranae cruise 

— I y a e one of. the following numbers in " ” 

'T' to see INHERE information to find a specific 
record 

V to RETURN 

ao > 

2 



Up to no/v, your qual i f ications are the f o 1 
1 - a 1 q o 1 (has NO more Qualification) 

i? - n a v y 



owi n g ; 

4 records 
2 records 



-Tyoe one of the followina numbers in 
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"I" to DISPLAY records which meet vour 
q u .1 1 i f leaf ions 
" d *' tc further QUALIFY 

" 3" to DELETE some of qualifications 
" a " to LEG IN QUALIFICATION at the oeginninq 
P R t S E P v I G present Qualifications 
" K " HELP for other than above 

ao > 

help 



Tvoe on* 3 o 
" l rt to 
" 2 " to 

" i " to 

" a " to 



the following numbers in " H 
ExIT ISIS and return to UNIX 
BEGIN ISIS at the beoinnino again 
CONTI HUE as you are 
see more INFORMATION about ISIS 



qo > 

\ 

ISIS has been 1 oncer cut 
OOO ciOvef come aqain 
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t R b 0 K M F S 3 A G E S 



i) . 



I ne IhGkES system mav print EQUEL error messaqes with 
error numbers and a little information during run time. 
Explanations of them can be found in reference b . EQUEL 
errors arise when t n e s v s t e m relations are not in oroper 
form. For example in one relation there may be a tuple 
referencing a nonexistent dependent relation. This 
condition mav occur if the computer ones down or if the 
user gives up in the miaole of the add process. In order to 
fix the system/ the relations must be checked by the 
manaoer usina lb GRES oirectlv. (The UNIX command fl RESTORE 
oat abase name” should be issued whenever a crash occurs 
during an INGRES operation.) 

There are other error messaoes wnich are printed by 
ISIS itself due to wronq arouments given by the user. These 
are all self exrlanatary/ and qive the user another chance 
to type a correct araument. In some places/ if the user 
types the same wrong araument three times the system 
terminates. 
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i s ) s m a i n • c 



m a 1 n ( ) 


i 


/ * 


f o r < s one of the two 


ISIS pro i rams 


*/ 


1 n r 


n ; 












i n C 


1 , 


j , k ; 










print f ( 


II _ 


Type 


one 


of the folio w i n ci 


numbers in \ " 


\"\n" ) 


pnnt.fi 


II 


\ 


H ]\" 


to St-A^CH ISIS 1 


i i st i nos\n\ 




\"<2\" 


t 0 


A D 0 


n e w 


listinoSf DfrLFFE 


or MODIF'Y ex i 


o 

C 

(/) 


ISIS 1 i 


st i ncs\ 


n 


\ ,, 3\" to on IT 


ISISXnao >\n" 


) ; 



r - aet i ( ) ? 
it(n = = l)f 

i f ( ( i - f ork ( ) ) z - 0 ) { 
exec) (" isissrc" r M lsissnc" rO); 
exitl); 

y 

w a i t ( k, j ) ; 

y 

1 f (o = = ?) i 

i t ( ( i = fork ( ) ) - = 0 ) < 

e x ec 1 ("isisadm" isisarlni" ,0); 
e x i t ( ) ; 

y 

1 t ( ^ ) ) ' 

} 

i f ( n - - S ) 
exirO; 
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s rc • q 



// Istruct ional Software Information System (ISISJ 
// INGRES oatanase application 
// This proorc3rn Does SEARCH oort i on of ISIS 
// The other cart of ISIS is in file adm.c which 



// 


Coes 


ADD, 


MODIFY and DELETE 


functions 


// 


This 


tile 


has 


two includes: 




// 


1 


.enesre 


. q 2 . com . a 




// 


File 


c om • c 


i s 


common for both 


nart of ISIS 



// flao-erase: erase stackl or not 
extern cnar feraseJ 
extern int ^eraser; 



mainO { 

i nt rodt ) ; / * 

mnsrchO; 
print f ( " ISIS has 
printf (" ooodby / 
tin exit 
> 



prints ISIS introduction * / 
/ * main-search heqi ns * / 
been locoed out\n" ) ; 
come aqai n\n" ) ? 



int ro'K ) I / ♦ prints introduction * / 

UP char * i s 0 l , * i nt rc I 

printf (" ISTS means Instructional Software Informat i o n \ n \ 
System^ written at N P S \ n \ 

A * k when vou need help/ at some kev do int type \" h\" to\ 
aet HELP ***\n aood I uc<\n" ) ; 
printfC" \n For more information type \"yes\"\n\ 

Otherwise PUSH RETURN K E Y \ n g o > \ n " ) / 

intro = q reaOC ( ) ; 
i f ( i n t r d == ' y * ) mfoheOl 

ana i s : 

printf!" -Tyne one of the folio wines in \ M \ M \n\ 

\"1\" to beain ACTUAL usaoe\n\ 

\ M 2\" to becin DEMONSTRATION usaae\nao >\n")/ 
isUl = qreaocO; 
itiisO) == * 1 * ) { 

p ff inqres isisO // invokes inqres database named ISISO 

> 

1 f (isOl == '2') < 

pp mores isisl / / invokes demonstration database ISIS1 

} 

i f ( i s 0 1 1= 1 1 1 & < l s 0 1 1 = • 2 ' ) 

{ printfC" \ n iN r o n g araument; trv again\n") ? goto agais 

} 

} / * eno introdC) * / 
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ronsrchC) { / * rrain-searcH; monitors search routine */ 

char * r t ; 
r t - ' e 1 ; 

cvcle: / * is used to begin ISIS aoain */ 

rt " search ( ) ; / * call main search routine */ 

if (rt = = 1 f 1 ) rt = cy I brc ( ) I / * in file com.q * / 
if ( r r -= ' b 1 !! rt - - ' c * ) ooto cycle/ 

return^ 

} / * enn mns rc h ( ) * / 



sea rc h ( ) { 

£ s char *cs; *rts? 

nn i n t tree# ns; 

ns - 0; crint f ("search in orooress • ); 

tree - count 1 ( t rec ) ? 

printf t"\n There are %a records about miscellaneous\ 
procrams in the systemNn" , tree); 
a a a n s 1 : 

print f ("-1 voe one of the following numbers in \" \ M \n" ); 

P r i n t f l *' \ " IV* to QUALIFY your need\n\ 

VSN" to DISPLAY all the records’ 1 ); 
if (rts = = ’o' ) { 

print f (" again\n" ) ; 

printf (" \ '* 3\" to EXIT ISIS and return to UNIX\n\ 

\ " 4 \ " to BEGIN ISIS at the beginning againNn") ; 

> 



else orintf (" \n"); 

rts - 1 f 1 ; 

aoains: 

pri nt f ( "go >\n" ); 
cs = oread c(); 
s w i t c h ( c s ) { 

case ' 1 ' : 

rts = cnainl (); 
crea^; 
case ' d ' : 

rts = di snl 1 ( ) ; 
creak; 
casp ' 3 • : 



rts = ' e ' ; 

break; 
case ' A * ; 

rts - 1 b ' ; 

b r e a k ; 
case ' h 1 : 



rts - re 
break ; 
aef aul t : 

if ( r s < 
else 



} 



if (rts - - * c * 



r i s ( ) ; 



3) { msnerlC); 

break ; 

; : rts - = * c • ) 



nst+; goto aaains; 



goto agans 1 ; 



> 



return! rts) ; 
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} 



end of search routine * / 



/ a 



count 1 ( ) i // returns s of records in recordfile relation 
ft ft int otrec? 
o t r ec - 0 ; 

»ft ranae G f r ) s reccrof i I e 
ft ft retrieve (otrec = count (r.rnarre) ) 
returr(otrec); 

} 



d i s o 1 1( ) { // display-first: executed if di sol av is 

// requesteo before any qualification 
ft ft char rrdestSllf rrnare [1*51/ * r t d 1 ? 

ft ft int r r i a ; 
rtdl - # d'; 

p r i n t f ( " All the records are the fol lowinqs;\n"); 

printfC" ID ft record name descript ion\n" ); 

ft ft range of r is recordfile 

ft ft retrieve (rrid=r.rid,rrdes=r.rdes,rrname = r.rname) { 
nrinttC'Xq % s % s % s % s \ n " , r r i d t " 1 " r r r n a m e t " !",rrdes); 

ft ft > 

return(rtol ) ; 



// These two structures arp used as stacks 
// in the Qualification process 

struct stltaa { 

cnar s r 1 e 1 m [1 3 1 ; 
cnar * s t 1 m ; 
int Stic; 

> st 1 [2S] ; 





struct st2taa { 




ft ft 


char 


s t 2 P 1 n [ 1 3 ] 


ft ft 


char 


* s t 2 m ; 


ft n 


i n t 


s t 2 c ; 



} st 2 [ 2S I ; 



n ft 

ft ft 
ux 
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omainlC) 1 // aual i t i cat i on-main: first time 

// Qualification is done and search 
/ / continues in this function b v calling 
// ether functions, 
struct st 1 tao * os t 1 ? 
extern char f erase; 

44 char mm n a m e f l 31 r ^rtcue/ *rta# k r t s 1 2 ; 
nn int n rr n um ; 

i nt n h u M 1 2 1 * *no/ i , i 1 / * not oreceeded w i t h 4 4 * / 
no = < n b u f l 0 ] ; 

rtaua = ' f'; // return function if finished correctly 

f erase = ' Y 1 ; 

// to use stack l acain without exited p r o a r a m ; 

/ / i n i t i a 1 i z e e m t y 
p s t 1 = K s t 1 [ 0 J ; 
f or ( i = 0 ; i < 25; i + + ) i 

f o r l i 1 = 0; i 1 < 13; i 1 + + ) ost l->st lel.n [ill = 1 ’ ; 

pstl->stlm = ' '; 

n S t 1 f + ; 

} / * end for 1 * / 

qaoain: / / comes if * a n t to oualifv without erase stl 

print f l" \n -Fo QUALIFY your need \n Type one\ 
or more of the follow i no numbers in \ " \ " \ n \ t \ 
separated by commas\n You MUST tyre at least one\n"}; 
//'print maintable relation to beoin Qualification 
nmnurrs - 0 ; 

4 x ranee of rr is maintable 
xx retrieve (mm name r m.crname) { 
nnnum t + ; 

p r l n t f ( *' \ M1 4d\" %s\n", nmnum* mmname); 

Xu ) 

/ * nets input from the terminal and outs in array */ 
rtg = qreadnC&nbuflOl); / * function reads inouts * / 
if (rtg = - 'e') ( rtqua - f e*; goto endquaM 

// put relation name on stackl 
Orel si ( &nhu f ( 0 I ) ; 
p s 1 1 - \ s 1 1 [ o ] ; 

rtsl2 = qs 1 s2 ( &nbu f [ 0 1 ) ; 

i f ( r t s 1 2 == 1 e ' ) ( rtqua = ' e ' ; a o t o endqua) } 

rtaua = qrai n^finbuf [0] ) ; 

i f i rtaua = = ’ o ' f erase = = ' U ’ ) aoto qaaa in; 

e n a a u a : 

9 

returnlrtoua) ; 

} / * end oumain * / 
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orel si (arrc) / / rut-rel at ion-st ^c< 1 ! outs relations 
// corresponoinq to array onto stacxl from maintable 
i n t *arro; { 

extern char feraseJ 
extern int *eraseo; 



pa int relnum; 

UU char t n a m e f 1 3 1 \ 

U* int i i ; 

u t char * f 1 w r * 1 run; 

struct s t 1 1 a a * s t i p ; stlo = &stl[01# 
f I run = ' 1 1 ; 

tnare ll?J = 1 X 0 ' ; 

if(ferase == 1 j\J 1 ) { // needs adjust stackt pointer 

i 1 e(st lp->st lr = = ' 0 ' J 1st lo->st lm = = 1 M ' ! 'stlo^stlrr^-'W 1 ) 
s t l o t + ; 

erase o = s t 1 p \ / * to use in qmainl * / 

terase - ' i ' } 



) 

else 

e r a s e p = 0 ; 
relnum = 0 ; 

Pp range of t is maintaole 
while (*arrp != 0 ) { 

retrieve (tname = t.crnameJ { 
re lnumttl 
f 1 w r - * n 1 ; 



i t ( v arro == relnum) { 

tor(ii=0;(stlp->stlelmlii]=tname[ii] ) 1= 1 \ 0 1 ; i i f t ) ; 

stlo->st1elro(ii) = 'XU 1 ; 

Stlo->Stlrr = 1 I) ' ; 

stlpte; arrott ; f 1 w r - ' y ’ ; } 

P n y 

i f ( f ) w r = = 1 n 1 ) 

l f ( f 1 run == ' 1 ' ) f 1 run = 1 2 ’ ,* 

else { 

i f ( * a r r p = = 9 8) 

print f ("wronc araument X " m\" is di scarded\n" ) ; 
else 

i t ( * a r ro == 99) 

orint f ("wrono araument \"n\" is discard ed\n M ); 
else 
; 

arrpn; flrun - ' 1 ' ; 

} / * eno else * / 



relnum - 


o ; 




} / * enn 


w h i 


1 e * / 


return; 






} / * enn 


orel 


s t ( ) * / 



asls2(nbufh) / / aual i f icat ion-f rom stack 1 - to stack^: 
// aoes qualification by stl and outs on st2 
// a n o c o o i a s s t 2 to stl at end 
int ^nnufb; { 
struct s t 1 t a a Postal; 
struct s t 2 t a a * n s t a 2 ; 
extern int * e r a s e o ; 



n n 

tt tt 
P P 



int r n u m , i , eric; 
int * n b u f b t * t w r ; 

char morel (13) / tcrnane (131 ^ * f 1 s t 2 # 

char *flsy/ * f 1 sn/ *rfol2, *rtar; 



/ * initializations of variables * / 
tcrnane [ 1 3) - 'NO'; 

r t q 1 2 = 1 f 1 ; / * if a s 1 s 2 ( ) executed correctly * / 
pstal = K. s t 1 l 0 ] ; o s t a 2 = ^st2[01; 

// if desired cooy present stackl elements to stack2 
i f (erasep 1 - 0) { 

whi let pstal < erasen) { 
f o r C i - 0 f i < 12; i t + ) 

osta2->st2elmli] = ostal->stle1ntil; 
psta2->st2m = pstal *>st In? 
pstal ++; p s t a 2 + + ; 

} /* enc while * / 

erasep = 0; 

1 / * end if * / 



whi1e(pstal->stlelm[01 ' 1 ) { 

flsy = * n * ; flsn = * n ' ; 

f o r ( i = 0; i < 1 2 ; i + + ) tmcrelMI = * * ; t m o r e 1 f 1 2 ] = 'VO 1 ; 



/ * q e t a relation name from stac<l * / 
if(rstal->stlm == 1 D 1 ) 

{ for ( i = 0; i < 12; iff) 

tmnrelti] = pstal->stlelm[iJ; 

} 

else { 

/ * if v or *A' mark# copy it from stackl to stack2*/ 
for ( i = 0; i < 12; i+O 

csta2->st2e1m[il - ostal->stlelm[ii; 
osta2->st2m = nstal->stlm; 
o s t a 2 + + ; 

Goto endwhi; 

} / * enc else * / 

p P ranae of e is tmprel 
up retrieve (eric = e.ria) { 
i f ( e r i d == 0) flsv - 'y' ; 

else flsn = 1 y * ; 

n n } 
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// if no more subdivisions oreviously marked as D 

i f ( f 1 sn = - 1 y * \ & flsv =- ' n ' ) 

{ 

// put relation cn stack? with d mark 

f o r ( i - (); i < 1 ? ? i H) 

nsta?- > st^l fT1 (i 1 - pstal->stlelm[i’J; 

psta?->st?m = ' v\ ' ; 

o s t a ? + + ; 

// all records in relation marked * M * will he displayed 
// in amain? in oisolav 

goto e n d w h i ; 

} / * end if * / 

// there may or may net oe some subdivisions 

pise { 

orintf l"\n -To further QUALIFY * * % s * * \n" f tmprel ) ? 
o n n t t ( " Tvoe one or more of the following numbers")? 
p r i n t f l " and\/or letters in \ " \ " \ n M ) ? 



r n u m = 0 ; 

33 retrieve (tername - e.crname) 

£3 where e.rio - 0 { 

r n u m + f ; 

print f(" \" %d\" Xs \n M / muni; tername)? 

3 3 } 

i f ( f 1 s n ^ = * y * ) 

printf (" \"m\" MISCELLANEOUS other than ahove\n" ) ; 

print f ( " \ M n \ " NOT want to oual i f v \ n " ) ? 

// adjust cointer to point to heoinnina 

nt'ufbt = nbu f b ; 

rtar = aroadn (nhufbt ) ? 

i f (rtar = = ' e * ) { rtal? = 1 e ’ ? qoto endal?; } 

// accorainq to array values/ out corresponding 
// relations on stack? 



w h i 1 e ( * n b u f b 1 = 0 ) { / * while a 1 * / 

i f ( * n 0 u f b == dg) // m p a ns ' n'? not want to qualify 

ooto end w hi; // at the end asis? ( ) 

/ / if array value other than 1 n 1 or 1 m ’ 

while! * n b u f b 1= ° H \ 3. * n b u f b i = 0) { / * while 3? * / 

// out name from, relation on stack? with 0 mark 
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rnum = 0 7 fwr - 07 

w h i I e ( f>; r < 2) < / * while 4 3 */ 

f w r + t ; r n u m = 0; 

4 4 retrieve ( t c r n a m e = e.crname) 

sc where e.ria=0 ( 

r n u n + + 7 

i f ( r n u m == * n D u f b J { 

- f c r ( i - 07 i < 137 i + + ) 

nsta2->st2elmliJ = tcrname (i I 7 
rsta2->st2m = ’0*7 

p s t a 2 + t 7 fwr = 07 n b u f h + + 7 

> 

3 s }/* end where*/ 

} / * end w n i I e 3 * / 

i f ( * n b u f b = - 96) continue# 
else ( 

if(*nbufb 1= 0) 

print f(" warning- wrona arqument %d or n is \ 
di scarlecNn " , * n b u f b ) 7 n b u f b + + 7 > 

} / * eno while n 2 * / 



i f l *nhuf D - = G 8 ) { / * means miscellaneous * / 

// put relation name cn stack2 with 1 M 1 mark 
f o r ( i = 0 7 i < 13 7 i + + ) ( 

osta2->st2e1rr[i) = tmorel[iJ7 

> 

ps t a2->s t 2 m = ’ ^ 1 7 p s t a 2 t + 7 

} / * end i f ( * n o y f b = =■ 9 8 ) * / 

i r ( * n n u f b 1= 0) noufb+t; 



} / * ena w h i 1 p s t * / 

enow n i : 
p s t a 1 1 1 ; 

} / * enc while at the beainninq * / 

c p s 2 s 1 ( ) 7 / * conies stack 2 to stack t * / 

e n a a 1 2 : 



K / * end osls^(rtpl2)7 * / 
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cos2sH) \ /* cocystac^-to-stackl */ 

/ / erases stackl/ cocies stacks to stack 1 / erases s t a c k 2 



struct s t 1 t a a *oo 1 ; 

struct s t 2 1 aa * d o«?l 

^ i nt j / j l >’ 

pci = * s t 1 l 0 1 ; o o 2 = < s t 2 [ 0 ] ; 

// erase stack I r to heoin copy with a clean stackl 
f o r ( j - U • j < 25; jtt) { 

f o r ( j 1 - 0 ; j 1 < 12; j 1 + 1 1 

o o 1 - > s t 1 e 1 m l j 1 ] = 1 

p O 1 - > S t 1 rr = 1 '; 

pol->stlc - 0; 
do l + + ; 

} 

do r - & s 1 1 t o I ; 



// cooy stack2 to stackl/ and erase stack2 

j = 0 ; 

while! j < 25) { / * while ft 1 * / 

if(Do2->st2fr-= , D' !! no^-> st = = 1 ^ 1 !! po2->st2m- =, M l ) 

/ * codv cart * / 

{ t o r ( j i = o ; j l < 12; ] l + + ) 

ool->stlelm[jlJ = oo2->st2elm[jll; 
o o l - > s t 1 m = oo2->st2np; 
p o 1 - > s t 1 c - po2->st2c; 

/ * erase stack? * / 
f c r ( j l = 0 ; j i < 12; j l + + ) 

po2->s t 2e 1 rr t j 1 1 = 1 1 ; 

no2->st2m = 1 *; 

oo?->st?c = u; 

> 

else j = 25; 
ool t + ; c o 2 + + ; j + 1 ; 

} / * end while 3 1 * / 



return; 

) / * ena cps2sl * / 
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a n a i n 2 ( n Ou f o c ) Y * aual i f i cat i on-secondary */ 

int *ncufcOr { 
extern char f erase? 
struct stltao * r 1 c ? 

£ £ c n a r *• q 2 r t h f * q m 2 r t / * q 2 c ; 

int * no f t to r k 3 ; 

f erase = ' Y ' ; 
nbftmp - nbufoo? 
pic = K s t 1 [ 0 J ; 
qm2 r t - ' c ' / 

// erase Stic before beainnina to print 
/ / a n v nullifications 

f o r ( k 3 - 0 ; k 3 < 25; k 3 t + ) {olc~>stlc = 0; p 1 c + + ; } 
w h i 1 e ( a m 2 r t = = ' c ' ) { 
prqual ( ) ? 
print f l"\n " ) ; 

p r i n t f ( " -Tyoe one of the following numbers in \ " \ " \ n \ 
\ " 1 \ " to DISPLAY records which meet your \ 
aual i ficat ions\n" ) ; 

p r i n t f ( n \"2\" to further RUALIFYXn \"3\" \ 

to DELETE some qual i f i cat i ons\n M ); 

printf (" \"4\" to BEGIN QUALIFICATION at the\ 

beai nni na\n PRESERVING present aual i f i cat i ons\n M ) ; 
p r i n t f ( " \ " h\" HELP for other than above\nqo >\n M ); 

a2c = creaoc ( ) ; 

switch ( a2c ) < 

case ' 1 1 : 

am2 r t = d i so 1 2 ( ) ; 
break; 
case ' 2 1 : 

qsls2(noftmp) ; 
creak; 
case ' 3 ' : 

qr2rt = riel etctnbf tTip) ; 
b r e a < ; 
case ' a ' : 

am 2 r t = 'o'; 

f e r a s e = * M 1 ; 

b r ea < ; 
case 1 h * : 

arr2rt - heloisO ? 
break; 
default: 

m soe r 1 ( ) ; 
b r e a k ; 

> /x eno case * / 

neftmu = nbuf do? 

} / * eno while * / 

return(am2rt); 

> / * ena amain 2 * / 
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praual() { / * print-cual l ficet ions * / 

struct st 1 tan *poii; 

U a char * o m w ; 

U U i nt k / k ?. f 

poii = & s t l ( o 1 ; 
am w = po i 1 - > s t 1 m ; 

i f ( a m w 1= ' P ' & S b rr w l ~ f N' 1 & & dmw i = * Vi • ) 

{ 

cri nt t ("\n^arm na: You have NO qual i t l cat i ons\n M ) ; 

aoto enooro; 

} 

else 

pri nt f ( M \nUo to now, " ) ; 

printf ("vour oua 1 i f i cat i ons are the follow ing;\n M ); 
for(k = 1 ; k < 26; ktt) { 

k 2 - k ; 

dmw = no l 1 ->s t 1 m ; 
swi tcMomw) i 
case 1 D * : 

printf ("W - % s ", k, poil->stlelm); 

i f (roi l*>st lc > 0 ) 

p r i n t f ( " % d listinos\n", poi l">st lc) ? 

else printf ( " \ n " ) ; 
break ; 
case # M • : 

print f ( Me /»d -%s(miscellaneouS/ has NO more\ 
aual i f ications)" , k, poil->stlelm); 

1 f t DO i 1 -> S t 1 C > 0) 

print f(" %d records\n", ooi l->st lc) ; 
else printf (" \ n " ) ; 
break ; 
case 1 V'i * : 

print f (" s /d -%s(has NO more dual i f ications)"\ 

, k, noi l->st lelfn) ? 
i flpoi l->st 1c > 0) 

printf ( M %d listinasXn", noi 1 *>st 1 c ) f 

else printf ( M \n" ); 
break; 
d e f a u 1 t : 

k - 2b ; 
b r e a k ; 

\ / * end case * / 

P o i 1 + + ; 

} / * end for * / 

i f ( k E > \ 2) { // if too many aual. to fit screen 

p n n t f ( " \ n to CONTINUE, PUSH RETUP N key\nqo >\n M ); 
cjreadc ( ) ? 

} 

endprq: ; 

return; 

i / * end prnua * / 
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a i 


s c) 2 ( ) { 


/ ■* d i s p 1 a y - 2 k / 






struct 


s t 1 *■ a ci *nt rl ! 




P V 


char re 


1 tnm (131 » * rt nr 1 t 


* f 1 d m w ; 


rt n 


i n t cth 


1 » 1 < f 1 t a b t c t 3 d t 


d d u m ; 




r t d o 1 - 


' c ' ; f 1 1 ah = 1 ; 


p t r 1 = k s t 1 [ o ] ; 




f 1 dmw = 


pf rl->s f In," 





// copy stack! element to t e m d relation name 
ford =u; 1 < 12 ; 1 + + ) r e I t n rn [ 1 ] = 1 ' ; re 1 t nm [ 1 ^1 = 1 \ 0 ’ ; 
f or ( 1 = 0? 1 < 1*?; Iff) rel tnm (1 1 - p t r 1 - > s t 1 e 1 m [ 1 ] 



a g a i 9 : 



w h i 1 e ( ( f 1 d m w = = 1 0 1 ! ! f 1 d m w = - 1 M 1 ! ! f 1 d m w = = 1 t; 1 ) & & f 1 t a b < - 2 ) 
{ 

print f ("processing Qualification: " ) ; 

for ( 1 = 0; 1 < 15; 1 + + ) p r i n t f ( M % c " , r e 1 t n m [ 1 1 ) ; 

pnnt f (" \n " ) ; 

U * range of w is reltnm 

Switch(fldmw) { 
case f U ' : 

disoCflt ab^ptrl); / * in file encsrc.a * / 
f 1 t ab + + ; 
b r e a k ; 

cesp ' M f : case ' d ’ : 

if(ntrl->stlc = = 0 ) I 
c t b 1 = 0 ; 

tu range of dl is tabledl 

x # append tabled! ( w . rid) where w.rid > 0 

ttu retrieve (ctbl = count (ell . r i d) ) 

p* delete dl 

pt rl->st lc = ctbl; 

} 

i f ( f 1 t ab == 1) ( 

** append to tablel (w.rid) where w.rid > 0 

} 

i f ( f 1 t ab == 2 ) { 

££ arpeno to t ah 1 e? ( w . r i d) where w.rid > 0 

} 

f 1 tah+t ; 

break ; 

} / * end case * / 

p t r 1 + f ; 

/ / copy a new record from stackl 

reltnm 16] = 1 1 ; / * bad spot * / 
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f o r ( 1 
f 1 an^w 



0; 1 < 1?; li + ) re 1 tnrr 1 1 ) 

ptrl->st ! rr ; 



p t r i ->s t 1 e 1 m l 1 ) ; 



} / * ena while * / 



l f C f 1 t a 0 = = 1) / * ireens stack 1 erty * / 

{ 

d r i n t f (" ft£PMNG:You have no Qualification to\ 
di scl ay\n" ) ; 
aoto endo i s ; 

} 

i f(fl tab = = 2 ) { // tat> lei has recoros, cony to t a b 1 e 3 



nn 


range 


o f 


t 1 is t ab 1 e 1 


u a 


append 


t o 


t ab 1 e 3 ( t 1 .rid) 


u n 


delete 

> 


1 1 







i f ( f 1 tab == 3) 


{ /* tab lei and table? have 


records 


n * 


range of t 1 


is t ab 1 e 1 




np 


range of 1 2 


is table? 




u n 
uu 
n u 


apoena to table3(tl.rid) uhere t 1 . r i a = 
(delete t 1 
delete 1 2 


t 2 . r i d 


n p 


ranee of t 3 


is t ab 1 e3 





c t 3 d = cnttb3C); / * in file encsrc.q + / 
orintf (" At this point reduced to * % d * 1 i s t i n q s \ n " f 

i f ( c t 3d - - 0 ) 

printf( M There is no 1 i s t i n a * which rr> e e t s \ 
qualifications\n M ); 
k* delete t3 

goto enodis; 

} 



u n 
u u 



else i 

apoend to tablet ( t 3 . rid) 
delete 1 3 

fltab = 2 ; aoto a a a i 9 ; } 

/* end itCfltab == 3) */ 



c 1 3 a ) ; 



distb3()P / * in file encsrc.q * / 



enddi s: 

} 

returntrtcipl ) ; 

} / * ena displ2 + / 
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/ / 


enclosure to src.c 








// 


i n c 1 


uaes cnttb3( ) , 


d i s t P 3 ( ) 


, d i sc ( ) 


// 


the 


reason this oart 


is separate 


is that the 


// 




ecu el or ec o m n i ler 


does 


net work well 


// 








for 


larae or oq rams. 


s i n c 


1 UO p 


"encsrc.c" • 









deletq(bfotl) / * delete Qualification * / 
i n t * b f o t 1 r { 

struct st 1 tea * s 1 p ; 

struct st?t so * s 2 o ; 

int * b f n t 2 , i , * s l o e n d ; 

nn char *rtrlx; 

slo - &st 1 [Of I s 2 o = & s t 2 [ 0 ] ? 
ofpt2 = b f o t 1 ; sloend = slo + 24; 
print f(" \n -Tyoe\n one or more of the\ 

Qualification numbers which have been\nprinted\ 
on the screen just before, separating by commas\n\ 

OR \ n \ M n\" NO J want to DELETE\n M ) ; 
rtrlx = oreadn(bfpt2); 
b f d t 2 - bfpt 1 ? 

i f (rt rl x == ' e ' ) ccto endrlx ; else rtrlx = * c 1 7 

/ / oegin to erase corresponding stack 1 elements 

// 99 means n; not relax 

while(*nfotl i - 0 * b f o t 1 1= 99) { 

sip - slo + * b f c t 1 - 1? /* to adjust o. * / 

// check cointer limit is not exceeded 
i f ( s 1 o > sloend) { 

print f(" \ n warnina: laroe relax argument \ 

is discardedXn"); 

sip - sic ♦ 1 - * b f n t 1 ; b f ot 1 + + ; continue?} 

f o r ( i = 0; i < 1?? i tO 

slo->stlelm[i] = 1 1 ; 

s 1 p - > s t 1 m = 1 X ' ; 

sic - sip + 1 - * b f o t l ? / * to adjust co inter * / 

of rt Ut; 

} / * end while * / 

i f ( b f c t 1 = - o f c t 2 & £ bfnt? == 99) ooto endrlx; 

/ / to compress stackl elemets 

// copy stackl elements to s t a c k 2 (except ones X marked) 
wn i 1 e ( s I d < - sloeno) ( 

if(slp->stlm = - , D l ! ! slp->stlm = = , M l ! ! slo*>st lm = ='W ) 
{ f o r ( i = 0 ; i < 12; i + + ) 

s2o->st2elm[il = slc->stlelm(il; 
s2o->st2m - s1o->stlm; 
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s 1 n - > s t 1 c t 



se?n->st2c = 
s2dh; 

} / * enc if * / 
s 1 o + + ; 

> / * enH while * / 

// secom; copy stacks to stac*l 
cos^sl ( ) ; 
enorl x: 

r 

return(rtrlx); 

} /* end Op 1 e t o ( b f d t 1 ) */ 



// con.c is common r.c search/ and Add-Del ete-Modify 
// includes cylbrc, helois/ oread c / greadn/ msgerl 
t include "corn.c" 



encsrc . a 



// This file is an enclosure to src.c 
// src.Q contains search o a r t of ISIS 



cnt tbM ) { / * count-tan 1 e 3 : * / 

// called from file src.a function displ2() 
u u i n t a n x ; 

ttu ranoe of t3 is tanle3 
Ut retrieve (abx = count (t 5.rih) ) { 

/ 

u u > 

return(aox); 

} / * end c n 1 1 b 3 ( ) * / 



distb3(J < /* d i sp 1 ay- t ab 1 e3 : */ 

// called from file src.a function d i s p 1 2 ( ) 
ttu char hraestSli, hrname(13], *sorc^ *reivhe; 

U tt i n t h r i d f c t 3 ; 

C t 3 = 0; sore = ' 4 ' f 

bx range of t 5 is table 3 
tt* retrieve (ct3 = count (t3.rid) ) 
i f (c t 5 = = 0 ) { 

print f(" There is no listing which\ 
meets aual i f i cat i ons\n" ) ; aoto endt3; } 
else { 

orintf ("There are * % d * listinas w n i c h meet\ 
aual i fications\n", ct3); 
p r i n t f ( " \ n " ) J 

pr i nt f ( " -1 ype one of the followinq numbers in \ M \"\n") 
d r i n t f ( " \"1\" to SEE listings which meet\ 

qualifications\n\ " 2\" to RETURN and CHANGE your\ 
dual i f i cat i onsNnao > \ n " ) ; 

whi letsorc 1 = ' 1 ' XX sore i - * 2 ' ) { 

sore = oreanct); 
i f (sore != ' 1 ' sore 1= ’2’ ) 

p r i n t f ( M WRONG araument: type 1 or 2 onl y\n" ) ; 

} 

} 

i f (sore = = ' 2 ' ) coto e n d t 3 ; 

printf("JLP ft record name description^" ); 

uu range of r is recoraf i 1 e 

Hu retrieve(hrid:r.rin/hrdes = r.rdes;hrnafre :: r.rnane) 

uu where r.rid = t 3 . r i d { 

printf (" %d % s % s % s Zs\n",hrid, " 1 ", hrname2' ! 'Nhroes) ; 
UU } 

prwhr: / * print where info. * / 
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onntf ("Nn"); 

nrintf ("*Tvpe one of the f o 1 1 o w i n a numbers in \ M \ " \ n M ) ; 
pri nf t (" \ " 1 \ " tc see WHERE information to find\ 

a soecific recoroXn \" 2\" to RETURf‘\nqo >\n"); 

rewhe - areaocOl 
i f ( rewh* ~ - * ? * ) c n t c e n d t 3 ; 
ifCrewne 1= ' 1 ' <\ \ rewhe i - '2') { 

pri nt f ( "wronq a r c u m e n t ; discarded and R E T U R N E D \ n M ) ; 
goto enot’5; 

} 

// if rewhe rz * 1 1 to see record where 

o r i n t f ( " -Give only one nf the 10 numbers which have\ 
neon printed\noo >\n M ); 
hr id - aetnmC); 



n a 
tin 



nn 



range of wr is whr 
r e t r i e v e ( h rde s - wr 
p r i n t f ( " F 0 u 
o r i n t f ( " % d 

} 



roes) where wr.rid = 
wherp\n" ) ; 

% s \ n " / hrid, hrdes); 



h r i d 



{ 



goto rrwhr; 
e n a t. 3 : 



9 

£ s delete t 3 



} / * end distD3() * / 



petnmC) { / * qet-n umber: * / 

& s inf p n i- cl, p2; 
a t oq : 

p2 = o; 

wh i 1 e ( (nn = aetcharC)) != ' \ n ' ) { 

iffrn 1= 1 ' ) { 

pn - Dn - ' 0 ' ; 

i f (pn > = 0 6 K on < = Q ) { 

P 1 - pn ; 

c 2 = p? * 10 + n 1 ; 

} 

else { 

onnff ("wrong arnument; try aaainXnao >\n M ); 
whi 1 e ( C d n - getchar ( ) ) 1= ' \ n ' ) // erase input buffer 

onto q t bq ; 

} 

> 

} / * end while * / 

return(o2) ; 

} / * end a e t n m ( ) 7 * / 
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di S(U M tb /prs 1 ) /* ci sol av-d transaction */ 

// called from file src.a function d i s p 1 2 ( ) 
inf fit. b , *prsl J { 

P k c h 3 r r t n m [ 1 3 1 ; 

zz i nt kb, c 1 odd , c t c 2 ; 

// coo/ stack 1 element to terro relation name 
f o r ( k 6 “ 0 ; k 6 < 12; <bf + ) r t nr (k61 = ' 1 J rtnrrt^l^'XO’r 

for (kb = 0 ; kb < 12; kott) rtnrn (kb) = prsl*>st lelm [k6] 

up ranae of r 1 is rtnm 

nn anpend to t a blecil (rl.rid) where rl.rid > 0 

UP append to table d2Crl.crnan>e) where rl.rid = 0 
uu ranae of d 2 is t a b 1 e d 2 

U u ranae of dl is tabledl 

aqa i 8 : 

uU retrieve (ctd2 = count (d^.crnane) ) 
i f ( c t a 2 > 0 ) { 

c 1 o o o = 0 ; 





w h i 1 e ( c 1 o o o < c t a 2 ) { 




u u 


retrieve (rtnm = d?.crnane) 


{ 


u x 


/ 

} 




uu 


ranae of si is rtnm 




u u 


anoend to tabledl(sl.rid) where st.ria > 0 


U * 


anoend to table d2(si.crname) 


where si. rid = 


U U 


aelete d 2 where d2.crname - 
c 1 o o o t + ; 


rtnm 




} / * end while * / 

} / * end if * / 





u u 


aelete d 2 




i 


f ( f 1 tb == 1 ) < 


UP 




aopend to t a b 1 e 1 ( a 1 . r i d ) 

} 

else { 


u u 


i 


acoena to table2(ol.rid) 

1 

f (rrsl*>st 1c = = 0) { 


P u 


} 


re t r i e ve ( c t o2 = count (dl .rirl) ) 
prsl->stlc = c t o2 ; 


UP 




delete ci 1 


} 


/ * 


end d i sd ( ) ; * / 
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. 







c on) . a 



// 

// 

// 



.co^.o contains conr'non 

1 . 
a. 



functions for 

SEARCH program 

AOD-DELETE -MODIFY proa ram 



cylorcO { / / cvc I e-branch evaluates result of first usage 
// ana sets return value to exit or begin ISIS 
UK char * c c ; 

UK i n t n c / 
nc - 0 ; 
aaainl : 

P r i n t f ( " \ n " ) ; 

printf("-Type one of the followina numbers in \" \"\n")? 
orintfl" \"1\" to EXIT ISIS and return to UNIX\n\ 

\ " 2 \ " to P E G I IX ISIS aaai n\nao > \ n " ) ; 
cc - oreaac ( ) ; 
switch(cc) 1 
case 1 1 ’ : 

c c = ' e ' } 

break ; 
case 1 2 1 : 

cc = 1 b ’ ; 

b r e a x ; 
case 1 h 1 : 

p r i n t f ( " - L o w , you have onlv two choices \n")r 

goto aaainl; 
oef aul t : 

if (nc<3) { nc + + ; msgerlC); goto aqainl; } 

else { cc = 1 e 1 ; break; } 

> 

returnlcc); 

} / * end of cvlbrc routine * / 
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helpisC) { // helo -ISIS: prints information 

Utt cnar ^ch/ 

U & i nt nh ; 



ch = ’ c 


i • 
t 


nh = 


o; 










aga i nb : 
p r i n t f ( " 


\ n 


" ) ; 












p ri n t f ( " 


Tyne 


ore 


o f 


the 


f o I 1 CH~ 


l no 


numbers in \ " \ " \ n " ) / 


print f ( " 


V 


1 \ " 


t o 


EX IT 


ISIS 


and 


return to UN I X \ n \ 


\ M 2\ M 


t o 


HER I N 


IS 


IS at the 


bed i 


nning a g a i n \ n \ 



\"1\" to CONTI NUt as you are\n M ); 
if (ch 1= * r ' ) 

o r i n t f i " \ " '-J \ M to see more INFORMATION 'about I S I S \ n H ) i 
printf ( H ao > \ n " ) ; 
ch = a r e a d c ( ) ; 

switch (ch) { 

case • 1 f : 

cn = 1 e ’ ; 

creak; 
case * d ’ : 

c h - 1 b 1 ; 

Creak; 
case ’ 3 9 : 

c h = • c ’ ; 

break ? 
case ’ 4 * : 

infoheO; 

c h - ’ r 1 ; a o t o anafnS; 

de f au 1 t : 

if (nh < 3 ) { nhtt ; goto aaainSl } 

else { ch = 'e'; break; } 



} 



return(ch); 

} / * end o I h e 1 d i s ( ) * / 



infoheO I 

r r i n t f ( " This croararr is an online software M ); 
o r i n t f ( " di ct i onarv\n There are two major proqrams:\n M ); 
or i nt f ( " 1. SEARCH proaram;\n User can find existing\ 
software by conversi no with the conputer.Xn") ; 
p r i n t f ( ” 2. ADD/ DELETE/ MODIFY Dronram;\n\ 

User can advertise his own software by listing\ 
it with the svste^.Nn") ; 

print f (" Provisions for modifyina and del et i nq\ 
a list! no are i n eluded. \n" )? orintf ( M \nBoth programs are 
easy to use . \ 

You do not neeo previous experienced 
Just \ntype answers after \"ao >\ M marks. \n"); 
p r i n t f ( M The- oroarams are writtenin the data\ 
suclanauaoe QUEL/ supported by the INGRES Xndata baseX 
manaoement svstem and the proararrmino lanauage C.\n\n M ); 
r e t u r n ; 

} 
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areaoc ( ) { / / reaas max 10 cHars^ returns first only 

zn char c h u f [101 / *cc / * c t e m o > 

co - \ c t ' u f [ 0 1 ? 

whi le( (ctemo = a e f c h a r ( ) ) I = 1 \ n 1 ) { 

if (ctemp 1= 1 1 ) { *co - c tern o / c d H ; } 

\ 

return (chu f lO) ) ’ 

} 



qreadn(nar) / / reads max 12 numbers anti / or letters 
// seoarated by commas; puts into array. 

// max number value is ° 7 
i n t *nar; { 

* z cnar * c r d ; / * return from aread() * / 

uz j nt ntemolf n f e m o 2 / f 1 t i m e t n e 1 / c n t / nzeror naqai nl 
int ^nartmo; 
naoain = 0 ? 

nartmo = narl 
aaainr: 

nar = nartmp; / / to adjust pointer at endloop 
f 1 t i me = 1 ; 
ne 1 - 0 ; 

crd = 1 q 1 ; / * if no error return 1 g 1 for ao * / 

/ + put zeros is array * / 
for (nzero = 0; nzero < 12; nzero+O 

{ * n a r t m o = 0 ; nartmptt; } 

nartmo = nartmp - 12 ; / * adjust nartmo to point * / 

/ * to oeainnina of the array to use again * / 

print f ("go > \ n H ) ; 

whi 1 e ( (ntemol = a e t c h a r ( ) ) 1 = * \ n ' ) { 

i f (ntemnl 1- ' 1 ) { 

// if input is M n : 

// put it in array/ erase inout buffer/ return 
if(ntempl = - 1 n * ) { 

* n a r = 9 9; 

whi let (ntemnl = cetcnar ( ) ) i = ' \ n 1 ) ; / * null stm. * / 

ntemnl = ' ' ; 

aoto end loco; 

} / * enc if * / 

// if input " m " ; o u t in arrsv, continue other arguments 
i f (ntenpl == * n ' ) { 

* n a r - ° 8 ; 

narH; 

whi let (ntemnl = netchar ( ) ) = = 1 ' ) ; / * n u 1 1 s t m • * / 
i t (nterrol = = ' f ’ ) intemnl = * ' ; continue/} 
i f (ntemol - - ' \ n 1 ) goto endloop/ 

else { 

nrintf ("wrong argument after \ " m \ " \ n " ) ; 
crd = • e * ; 
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ooto ennlooc? 

} 

} 

/ * incut should he number* so qo ahead */ 
n t e m o 1 = ntempl - 'O'? 

swi tch(f 1 tire) i 
case 1 : 

cnt = 0 , 

i f Inter o 1 > - 0 X St ntempl < = 9) 

{ntemo2 = ntempl; f 1 t ime - 2; continue;} 
else { 

crintfC" wrong arqument; expect i nq number\n”); 
c r d - 1 e ' ; octo enalooo; 

> 

case 2 : 

cnt h; 

iffcnt > 1 && ntemol i= (*,' - *0’) ) { 

end - 'e'; 

print f(" wronc aroument; very 1 arqe\n" ) ; 
aoto eno 1 oop ; 

} 

> iffnterrol > = 0 & & ntempl <- 9) 

{ ntemr2 = ntemo2 * 10 + ntempl; continuer } 

else i f ( n tempi = = ( 1 * 1 - ’ 0 * ) ) 

{ fit ime = 1; break; } 

else { 

orintf ("wrono arqument;”); 

d r i n t f ( " expect ino number or \ ” , \ ” \ n " ) * 
cro = ' e ’ ? Goto end loon; 

} 

} / * eno switch * / 

if(ntemc2 >- 1 RS ntemp2 < = 97) { 

*nar = ntemc2; ntemn2 = 0; nartt; 

I 

else { 

orintf ("wrono arqument; very 1 arae or less than l\n") 
erd = ’e'; ooto endl oop? 

} 

n e 1 + + ; 

i f ( n e 1 > 11) { 

crintfC” more than 11 aroum^nts\n" ) I erd - * e‘J 

aoto end loop? 

} 

} / * end i f (ntemnl 1= ' ' ) * / 

} / * end while * / 

ifCntemo2 >= 1 ntemo2 <= Q 7) { 

*nar - ntemc2; ntemo2 - 0; 

} 

else { 

print f ("wrong aroument; very large or less than t\n\ 
or end ino with \ " * \ " without argument \n" ); 
era - * e ' ; 
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> 

pnd i oop : 

n a a a i n + t ; 

i f C n a a a i n < s X crrt = = 1 e 1 ) { 
r r i n t f ( 11 \ n -Tyre one or pore of the f o 1 1 o w i n q X 
numbers in \" \ " \ n separated by commasXn 

Try one more timeXn"); 

ifCntemnl ! = '\n‘) /* to erase ouffer */ 

whiie((ntempl = a e t c h a r ( ) ) i = 1 X n 1 ) ; 

onto an a i nr; 

} 

return(crd) ; 

} /* end areadn(nar) * / 



m sae r 1 ( ) { 

print f (" You must tyce one of the characters in \ 
X " \ ,f which have been printed on t h e X n t e r mi n a 1 X 
or type X 11 h X " to get heln inforrrationXn" ); 

} 



a dm . q 



// Thesis a o c u t INGRES data base application ISIS 
// This proa ram is A C D - 0 E L E IE- h 0 0 I F Y part of ISIS 
// Inis file two enclosures: 1- encadm.c 2 . com.c 



extern 

extern 

extern 



char oen r e 1 l 1 3 1 r 
i n t i d n u m ? 

Char f 1 n a rr e t 1 3 ) , f 1 d e s l S 1 ] ,f1dm,f1whrl51] , p a s s w ; 



m a i n ( ) { / * aad-aelete-monifv * / 

char i s 0 o r 1 ; 
i nfohel 1 I 

print f (" \n\n This part of procram does ADD, MODIFYX 
and DELETE funct ions\n" ) ; 
aqa 0 1 : 

p r i n t f ( " -Tvpe one of the following in \ M \ " \ n \ 

\ " 1 \ " to oecin ACTUAL usaae\n\ 

\" <?\ u to bee in DEMONSTRATION usaqe\nao >\n M ); 
is Oort = areadc ( ) ? 
iflisOorl == ' 1' ) < 

££ i nares isisO // invokes inqres database named ISISO 



} 

lOisOorl = = ' 2 ' ) { 

U ~ inqres isisl / / invokes demonstration database ISIS1 

> 

i f ( i sOcr 1 1= '1' *$. & i s 0 o r 1 != ' 2 * ) 

{ pr i nt f ( "\n!/‘:rona araumentr try cioain\n M ) ? goto aqaOl; 

} 

P r a n c H ( ) ; 

p r i n t f t " I S I S acci-ae 1 e t e -mod i f y program has been 1 oagedN 
outXnboodbvr come a a a i n \ n " ) ; 
tt n exit 
} 
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branch ( ) i 
extern 
s $ char 

U n 1 nt 



/ * branches 
Crar f 1 dm ; 
* C t + r 1 2 ; 
n ; 



to one of 



the main routines */ 



n - 0 ; r t - f e ’ ; 

cv I br : 

0 r i n t f ( " \ n ~ T voe one") I 

P r i n t f i " of the follow in a numbers in \ ,f \" \ n M ); 

print ft" \ " 1 \ " to A 0 D a new listing for a new\ 

p roq r am\n \ " 2\ n to w ODIFY an existina 1 i st i nq\n\ 

\ M 3 \ M to DELETE all information about' one orogram\n M ) 
aoa i n : 

pr i nt f ( "oo > \ n " ) ; 
c - areaacO/* 
switch(c) { 
case ' 1 * : 

rt? = a o b ( ) ; 
break; 
case ’2‘: 

f 1 om - 1 N' 1 ; 

r t 2 = oelmoo(); 

0 r e a < ; 
case 1 3 1 : 

t 1 cm = 1 D 1 ; 

r t 2 z rt e 1 m o o ( ) ; 
break ; 
case 1 n * : 

r t 2 = heloisO; 
b r e a < ; 
defaul t * 

1 t ( n < 3) { m s a e r 1 ( ) ; n + + ; goto again; > 

else break; 

} /* end switch * / 

1 f ( r 1 2 = = 1 f • ) rt2 = c/1hrc(); / * f means finish * / 
i f ( r t 2 = = ' b 1 !! r t 2 = = ' c ' ) goto cvlbr; 

return; 

} / * ^ no branch ( ) ; * / 



a d a ( ) { 

char * r t a ; 
r r a = ' f 1 ; 

p r i n t f ( " 



a o r f w h ( ) ; 
r t a - a d a r 1 
i M r t a - - ' 

e n a a a d : 



* 



ADD in progress . . . \ n " ) ; 

/ * aec-nara meters * / 

/ * acpend-recordfile and 
s ( ) ; /* ano-to*rel at i ons */ 

e 1 ) ooto endado; 



where 



r e 1 . 



return(rta) ; 

} / * anc a d o ( ) ^ / 



*/ 






qptoar ( ) { / * net -narofreters for add in a * / 

extern i nt i a r u m ; 

extern char f 1 n a m e l 1 3 1 / f 1 d e s f 5 l ) * f 1 w h r [ 5 1 ] / oassw 
ti Z int t ma x , 1 /* 

js U char x c h r rr. o , * f I w t ; 

// initialisation of variables 
i n nu rr - 0 ; f rax = 0 J 

flwt = 'o’; f 1 n a m e [ 1 <? 1 = 1 \ 0 ' ; f Ides [501 = '\0'; 

fcs ranqe of r is record file 
&U retrieve ( t m a x - rra v ( r . r i a) ) 
i dnum - t rr a x + 1 ; 

print f t" Very important 1 Keep in m i n d \ n \ 
four new record ID number is * %d *\n M / idnum); 



// erase f 1 n a m e ano floes to becjin clean 

f o r t i = 0 ; i < i <2 ; i + + ) f 1 n a m e ( i 1 = 1 ' ; 

forti = 0 ; i < 50; i ► + ) f 1 d e s ( i ) = * ' ; 



// accent input from terminal 

p r i n t f f " -l?ive new PROGRAM* S N A M E " ) / 
print t C" (NOT more than 1 £ cHaracters)\n" ) I 
orintf ("no not insert blanks between charactersXn” ) ; 
orintf ("qo > \ n M ) ; 
i - o ; 

while! (chtmp = net char ( ) ) := ' \ n ' ) { 

i f (f 1 wt == 'o’ ) { 

if(chtmp != * *3 { f 1 n a m e li 1 - chtmp; i + + ; } 

> 

i f ( f I w t = = 'o' * ^ i > lc?) { 

o r i n t M M 1 ora araument? t runcat ed\n" ) ; 

1 1 wt = • s 1 ; 

} 

} /* ena while*/ 

f 1 n a m e [ 1 ? 1 = ’ \ 0 ' ; 

f I w t " 'o’; 



print f ( ” -Give new ^ROGRA^'S DESCRIPTION ( tM 0 T \ 
more than 5 0 characters, in one 1 ine)\nao > \ n " ) ; 

i - 0 f 

while! (chtmp = netcharO ) != '\n') { 

i f ( f 1 w t = = ' a ’ ) f 1 d e s f i 1 = chtmp; 
i + + ; 



i f ( f I w t = = * a 1 ms. i > 5 0 1 { 

pnntf ("Iona araunpnt ; truncated\n" )P 
f i w t = ’ s ’ ; 



} 

> / * end while * / 

t 1 a e s ( 5 0 1 = ’ \ o • ; 

// a e t where r^es input from terminal 
P r i n t f ( " -Tell w HERE this nroaram can be found\n\ 
(NOT more than 5 0 charactersXnoo > \ n " ) ; 

f 1 w r = 1 q ' ; 

i = o ; 
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wnileCtchtmo - oetcharf ) ) 1- ' X n 1 ) { 

ifCtlwt = = 'o') f 1 whr (i ] = chf mo; 

i + + ; 

i f C f 1 w t = = 1 o * XX i > SO) { 

print f ( “ 1 onq argument ; truncatedXn" )# flwt - 's'; 

\ 

i 

} / * enn while * / 

printM" -Give one character \n M ); 
orintfC" to be new I Istino’s P A 3 S W 0 R D \ n " ) ; 
orint f 1 "qo > \n " ) ; 
passw = areadc ( ) ; 

} / * end aetpar ( ) * / 



aorfwnO 


\ / * 


extern 


i n t 


extern 


c h a r 


n n int 


cma x / 



aopend-wh r re 1 . 



char 



aopend-recorof i 1 e 
idnum; 

f 1 name ( 1 3 I , tides [Si) 

k ; 

fnametl3]/ fees [511/ fwhr[51], 



f 1 whr [511 



oss [21 ; 



* / 

passw; 



cmax = idnum; oss [ 0 ] = oassw? pss (11 - ' X 0 ' ; 



f or ( k = 0; k < 12? k f + ) f n a m e [ k ) = f 1 name [kl ; 
for ( k = 0; k < 50; k t + ) { 

f d e s [ k 1 - fldestk); fwhrtk) = f)whr[ki; 

1 

Uti apoenci rpcordf i 1 e ( r i d = cmax / rname-f name / rdes = fdeSf 
% x pswrd - pss) 

un aooeno whrtria = c max, rdes - fwhr) 



} / * end arrfwh * / 



struct 



st rtao { 

char s t r e 1 m [ 1 3 ) ; 
} st r [251 ; 






addrls() < / * add-to-relations: */ 

struct st rtao *nstrl 
extern cnar o^nre 1 [151? 



» » inf m n u nr. ; 

m cnar mnanetlS]/ *rtarirl ^ *flfin, *rtgr^ * r t c u r ; 
i nt b u 4 l 1 2 1 / * o b , j f j 1 , dn; 

pstr - ist r (01 I rn n a m e [ 1 2 ] = ’NO'; f 1 fin = ' n 1 ; 

rtadrl = ' f 1 ; 

// to use stackr a c a i n without exitino prooram^ 

// initialise empty 

f o r ( j = 0 f ) < 2 5 ; j t + ) { 

for(jl = 0; jl < 13; jl + t) ost r->st rel m [ j 1] = 

nst ru; 

} / * end 1 . f or * / 



// oeoin di so 1 ay maintable and aet i nout 

p r i n t f ( " -To ADD your new listing in the aoprooriate\ 
cateaorieS/\n"); 

orintf (" Tvoe one or more of the follow i ng\ 
numbers in \" \ M \n seoarat inq by commas\n\ 

You MUST tvoe at least o n e \ n ” ) ; 
n r i n t f ( " Select all that nertains;\ 
you will aet no second chance\n M ); 

// a) oisolay maintable 
UU range of m is maintable 
m n u m = 0 ; 

retrieve (mname = n.crnamel { 
mn urn + + ; 

p r i n t f ( " \ M %d\" %s\n”, mnum, mname); 

U tt } 

// b) get input from terminal and put to array 
rtgr = areadn ( &bu f [0 J ) ; 



i f ( r t g r = = ' 


1 e ' ) 


{ rtadrl = ' e ' 


; aoto endadr; } 


gen re 1 


l 0 J = 


' ti 1 ; 


aenrel 


m = ' a 


' ; q e n r e 1 ( £? 1 = ' i ' » 


ae n r e 1 


[51 = 


' n ' ; 


aenre 1 


t a i = * t 


' ; aen re 1 (51 = ' a ' 1 


aen r e 1 


Ibl = 


• h ' ; 


aenrel 


f 7] = '1 


aenrellSJ = ' e ' J 


a e n r e 1 


IQ) = 


I t • 

r 


aenrel 


[10] = ' 


' ; aenrel 1111 = ’ ' ; 



outst r (\st r 101 ^buf 101 ) ; / * out relations to stackr * / 



// 

// 



wni left 1 fin =- * n 1 ) { / * means not finish * / 

dumwrtt) / * dummy- write * / 

fina last element on stack to get/ if emty finish 
pstr = & s t r f 0 1 ; 
i f (nst r->st relm [01 ” ' ') 

{ flrin = 1 y 1 ; coto endwhi; } / * stack is emty * / 

i=o; 

whi 1 e(ost r->st rel m [01 1= 1 1 ) { 

j + + ; pstr + + ; 
i f ( j >25) { 

P r i n t f ( " ERRQP:addinq stack overflow”); 
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or i nt f ( " / rr a * P 5 l tens.\n" ) ; 
a o t o end'/vh i ; 

} 

1 / * end while * / 

pstr - p S t r - i ; 



// 

// 

// 



// 



// 



cony the last stack element to genre I [13] 
for(j = 0; j < IP; j + + ) a e n r e 1 ( j I = ost r->st re 1 m [ j ] 
call pcurcl () to do branch 
rtcur = o c u r c 1 ( ) ; 

branch accordi no to return of pcurcl ( ) 
switchtrtcur) { 
case * 1 ' : 

addcur () I /* and to current class name */ 
forCj = 0; j < IP; j++) ostr->strelm[j] = 1 * ; 

break ; 
case ' P ' : 

newDrcC); / * new "branch: * / 

erase one element from stack 

for(j = 0 ; j < IP; j + + ) pst r->st rel m [ j ] = 1 1 ; 
b r e a k ; 
case 'S': 

exibrc(Abuf[0]/Dstr); / * exist! no-branch : */ 

break? 
case 1 n * : 

erase one element from stack 

f o r ( J = 0 ; j < IP; j + + ) ostr->strelm[j] = ' ' ; 
goto enow hi; 

} / * end switch * / 



enowni : 



i f ( f 1 f i n == 1 v ' ) 

orintfC" \n ADD process has been co^cl eted\n" ) ; 
} / * end while * / 



e n d a d r : ; 

return(rtanrl ) ? 

/ * end add r 1 s ( J * / 



dumwrtO { / * DUMMY stackr write * / 
struct strtao * p 5 ; 
l n t v t y 1 ; 

/ / ! ) U M Mi Y write 

c 5 - \ s t r [ 0 ] ; 

forty = 0; y < 5; vd) { 

orintf ("Xd " , y ) ? 
forty 1 = 0; yl < IP; y 1 ft) 

printf( M %c"/ o5->strelm[yl] ); 
obtt; 

} / * end dummy write end for l- * / 

orintfd' \n")? 

> / * end dumwrtC) */ 



nut'Str(pst/nof) / * nut relation on stackr * / 
// must adjust pointers before call outstr 
i nt *nst < *ohf ; { 

extern c n a r q enrol 1131; 
struct s f r t a n *osta/ 



tt+ cnar o r e 1 i 1 3 J t * f 1 wr t / a n a rr e f 1 3 I > * f 1 r u n ; 

i n t 1 / nnuT ; 
o s t a = ost ; 

anane 11^1 - ‘ \ 0 * ; 

f or ( I = 0 ; 1 < 1 2 P 1 + f ) 

q r e 1 [ 1 J = aenrel U J »’ a r e 1 [ 1 2 1 = ‘NO 1 ; 

# s r a n q e of a is a r e 1 

t 1 run = 1 i 1 ; 

w h i 1 e ( * d b t 1= 0) { 

m n u ^ = 0 ; 



Uz retrieve (anane = a.cmare) { 

tP n u m + +■ ; 

f 1 u r t - 1 n 1 - 

i f l * p t> f == nr. n u m ) { 

ford = 0; i < 12; 1 t + ) pst a->st re 1 mill = 

psta->streln(12] = ' \ 0 * ; 

pstat + ; Ob f + + ; flwrt = 1 y • ; 

> / * end if * / 

*2 } 

i f C f 1 wrt == ’ n * ) 

i f ( f 1 run = = * 1 ’ 1 flrun = ’2*; 

else i f ( * n o f > 0) { 

orint f(" > roe a araument %o discar ded\n" 
flrun = * 1 1 ; phf h; 

I 

} / * end while */ 



return; 

} / * end out st r ( ) * / 



aname (1 1 



/ * pb f ) ; 
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pcurc 1 ( ) v /* nnnt-cu me nr -c 1 ass-ana- branches */ 
extern char oenre 1 [ 1 i) I 
U 3 c n a r q n r e 1 1 [ l 3 1 , re 12(13), * n 1 2 3 ; 

=* £ i nt at, f 1 w 1 , * 1 e x ; 

n 1 2 3 - f n 1 ; flex - 1 n ' ; 

rortcl = 0; a 1 < 12; a 1 + + ) anrel 1 fol 1 - qenrel [gill 

an r e M ( ] 2 J - * \ 0 * ; 

print f( M \nCURRE NT CL -VS S NAME is * % s * \ n " , anrel 1 ) ^ 





tor (ql - 
f 1 w 1 = 0 ; 


0 ; a i 


< 12; al+fl 


r e 1 2 [ o l ] 


U tt 


r a non of 


a i s 


anrel 1 




n n 


r e t r i e v e 


( r e 1 2 


- q.crname) 


where a . 



f 1 w 1 + + r 



i f ( f I w 1 = - 1 ) { 

printfC end SUP C A T EGOR 1 ES are:\n"); 

f 1 e x = * v ' ; 

> 

i f ( f 1 w 1 > 0 ) or i n t f ( M % s \ n M , r e 1 2 ) ; 

} 

0 r i n t f ( " -Tvoe onlv one of the"); 

printf l" following characters in \ " \ M \n\ to ADD\ 
your I i st i nq\n" .) ; 

orintf (" \ M 1\ M into CURRENT CLASS N A M E \ n \ 

\"2\" ma<e NEd SUBCATEGORY and put this into i t\n") ; 

1 f ( f 1 e x - - ' y f ) 

printtC" \"3\ M use an EXISTING SUPC A T EGOR Y\n " ) ; 
printfC" \" n\" None of the above; ST0P\ 

this direct ion\nco > \ n " ) ; 
nl23 - nreadcO? 
return(nl23) ; 

\ / k eno pcurc 1 ( 1 * / 



addcur ( ) { // add-current: ado 

extern c h a r aen r e 1 ( 1 3 1 , 
extern ml: i d n u m ; 

tt cnar q r e 1 3 (1 3 J , n a n e 3 [ 1 3 1 
tt* inf i d n u m 3 , i 5 ; 

q r e I 3 ( 1 2 ] = ' \ 0 1 ; name3(121 

// cooy extern to local names 
f or ( i 5 - 0 ; i3 < t 2 ; i 3 + + ) 

{ or^l3[i31 = aenr^l [i 31 ; 

i 1 n u m 3 = i a n u rr> ; 

// a a a record to current name 

a noend to qrel3(rid = i d n u m 3 , 
return; 

} /* end a ci d c u r ( ) * / 



to current 
f 1 n a m e [ 1 3 I 



1 \0 



record name 



n a m e 3 [ i 3 ] = f 1 n a m e ( i 3 J ? } 



c rname - name3 ) 
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n e w o r c ( ) < / / new -branch: adds record to new branch 

extern char aenrel (1 31 f f I name t 1 31 ? 
extern i nt innuml 

x z char q ra^ii 51 , a a n a m e ft 5 1 , f 4 n a rr e [ t 3 ) ^a^char , *a^lwrt J 

4 h i nt a 4 * i d 4 n u m ; 

qra4[12J = • \ 0 f ? a'4wrt = 'o'; 

// r i n t current class nare aoain 
// cony aenrel to local ara^ 

f or ( a <4 = 0; a <4 < 12; a 4 + + ) a r a 4 [ a 41 = aenrel (a4) ; 

printf l" CURRENT CLASS NAME is * %s *\n", qra4); 
o r i n t U " N E '/j S U S C A T E G 0 R Y will be a branch of \ 

tne C tJ K R E N T CLASS N A N E \ n " ) } 

or i nt ft" "•Give N E a S U B C A T E G 0 R Y N A M E \ 

(not more than 12 characters) \ n" ); 
print f(" do NOT insert BLANKS between char.sXn")? 
orint f ("go >\n M ); 
a q a t r : 



// net new na^e f ror terminal 

for (a /] = 0; a4 < 12; a4t + ) a^nane (a4l 

a 4 — 0 / 

while( ( a 4 c n a r = aetchar ( ) ) 

i f ( a '4 v r t = = ’ a * ) { 



! = ’ \n ' ) { 



’ Z ■ 

1 Z • 
. 9 » 



&& 



i f (a4 c nar !“ ’ • ) { 

i f ( ( a 4 c h a r < * a ’ !! a 4 c h a r > 

(a^char < 'A* !! a^char > 

(a/Jcnar < * 0 ' !! a^char > 

a 4c h a r 1= 1 e * ) 

{ 

orintf C’^ronq argument ;\" % c \ " /try aaain\n",a4char); 
wm le( (a'4crar = aetcharO ) i = 1 \ n 1 ) ; /*erase*/ 

orint ff" ao >\n M ); aoto aaatr; 

> 

a 4 name (a4) = archer; a 4 + + ; 



\ 



i f ( a 4 w r t = = 1 a * < a 4 > 

orint f ("long aroument; 
a 4 w r t - 1 S 1 ? 

} 



12 ) { 

trunceted\n M ); 



/ / 



1 / * end while * / 

a 1 n a m e ( 1 2 ) - * \ 0 ' ; a 4 w r t = 1 q * ; 

create new relation with new branch name? a4name 
create a 4 n a m e ( r i o = i ^ crnane = cl2) 



// New relations must be S A v F d to or^vent automatic 
// removed bv INGRES* Tne SAVE command date must be 
// advanced oericdically to avoid i nadvertant loss 



a t a 

t K 



save a 4 n a m e until j u n 30 1^78 



// aupen I recorci to new relation a^name 
/ / copy parameters to local 
i d^lnum = i dnum ; 

for (a'l - 0; a '4 < 12; a 4 + + ) f^namefa^J = flnametaU]; 

f '4 n a m e 1 1 2 i - 1 \ 0 * ; 

4 z aooend to a4name(rid = nVJnum, crname = f 4 name) 

r 

// also aooeno to current class name 
U 4 a o p e n a to o r a *'4 ( r i c = 0 , crname = a^name) 

f 

return; 

1 / * end n e w b r c ( ) * / 



exibrcCoca) , osa 1 ) 

/ * exist inq-branch: adds record to existing branch * / 

int *ooalr *osal ; { 

extern char aen r e 1 [ 1 3 i ; 
struct strtag * p s a 2 ; 

4 c char nr 1 a [1 31 / qananfie (131 ; 
int a 3 / * o b a 2 ; 

q r 1 a [ 1 2 J = * \ 0 1 ; c s a 2 = osai; p b a 2 = pbal; 

// or int oranches aaain 

// cony aenrel to local 

for (a3 = 0; a 3 < 12; a 3 + t ) q r 1 a ( a 3 1 = aenrel le31 ; 

or i n t f ( " -Tyne onn or more of the follow i n q \ 
numbers in \ " \" to select subcateqory\n u ) ; 

4 s ranqe of q a is qrla 
a 3 = 0; 

4 n retrieve(qaname - aa.crnarre) where ga. rid = 0 { 

a 3 + f ; 

print f t" \ M % d \ " % s \ n " , a 3 , qaname); 



qreadntnbat ) ; 

// remove on° too element from stack 

f o r C a 3 = 0; a 3 < 12; a 3 1 + ) psa2~>strelm(a3] = * 1 ; 

// out selectee branch names on to stack 
/ / adjust aenrel 

f o r ( a 3 = 0; a 3 < 12; a 3 + + ) qenrel (a31 = arl a la31 ; 
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nass stack and bu f . poi n 



// nut relations to s t a c < #- 
nut st r (osa?r o b a 2 ) ; 
return; 

K / * end ex ibrc i ) A / 



/ / includes d e 1 m o d ( ) f a e t n u m ( ) , delete! ) ^ modi f y ( ) 
include "encadm.c" 



// coro.c includes; cylbrcO/ H e 1 p i s C ) , greadcOr areadnO, 
m s q e r l ( ) 

^include " c om . c " 



e n c a a nrc .a 



// Inis file is an enclosure to file adm.g 
// File adm.q is the Add -delete- Modify part of ISIS 



de 1 mo 1 ( ) ( 

/ * delete-modi fvJ ooes common actions/ and branches * / 
extern char f 1 dm ; 
extern i n t idnurr; 



4 4 int tlid/ t 2 i d / t i m e n , flow; 

4 4 char *rtdm/*f I f i ndr * f 1 qo / rename [ 1 31 /rcrlesfSl] ; 

4 4 cnar p s w 1 l 2 1 / os w2 f 2 1 ; 
t i m e n = 0 ? 
b e q d nn : 

rtdm = * f * ; rename [121 - 'NO 1 * redes [SO] = 'NO'; 

r t dm = 1 f 1 ; 



agadm : 

printf (" -Give in NUMBER of your record/ which you\ 
are going to"')/ i f ( f 1 dm == ' D 1 ) o r i n t f ( " del ete\n" ); 

else o r i n t f ( M modi f v\n" J ; 
print f ("qo > \ n " ) ; 
t 2 i d = 0; 

44 ranqe of r is reccrdM le 

tlid - getnum(); /* get inout and compute ID u */ 
t 2 i a = 0; f 1 find = 1 n ' ; 

4 4 retrieve ( t 2 i d - r.rid) where r.rid = tlid { 



4 a 



44 



a 4 

44 



44 



} 



i f ( 1 2 i d l z 0) { / * means rid is correct * / 

orintfC" -Give only one character as a PASSwORDXn" ); 

o r j n t f l " qo >\n " ) ; 

psw 1 t 0 1 = q read c ( ) ; 

flow - 0 ; 

retrieve ( o s w 2 = r.oswrd) where r.rid = tlid { 
i f ( o s w 1 L 0 1 != osw 2 l 0 ] ) 

{ or intf(" wrong cassword/ ex i ted\n" ); flow - 1; } 



} 

if(flow - - 1) goto 

r e t r i e v e ( rc n am» - 

where r.rid = 
printfC" \nID s 
4S s \n / t 2 i d r 

nrintf ("\nls this 
- T yne \ " yes \ " or 
t 1 find - 1 y ' ; 

1 



enddm; 

r . r name/ redes = r.rdes) 
t 2 i d { 

record name d*escription\n%d\ 

rename / redes) I 

t h list inn vou are seeding ?\n\ 
\"no\"\nno > \ n " 1 ; 
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> / * end i f ( t 2 i d i = 0 ) * / 

t i m e n t t * 

1 t ( f 1 f i n d = r 1 n ' t i m p n > 2) { 

print f ( "I’irona 10 n i j m b e r three t imes/’\ 
o r o a r a n eO ted\n" ) ; 
rt dm = * e ' ; aoto enddm; 

} 

i f C f I f i n o - r 1 n ' ) { 

o n n t f ( " Try one rore t i rre\nqo >\n M ); 
goto o e a d m ; 

> 



// if f i nos cones h p r ^ 
f l n d q o : 

flgo = qreddc ( ) ; 



i f ( f 1 cio 


= = 1 n 


' ) 


aoto enddm; 


i f ( f 1 go 
l d nun - 


! r 1 v 
t 2 i d ; 


• ) 


{ o r i n t f f " I r v one more time\ngo 
aoto f i ndao ; } 


1 f ( f ! dm 


= = • u 


• ) 


a e 1 e t e ( ) ; 


i f ( f 1 dm 
enddm : 


- = * M 


• ) 


modi f v ( ) ; 



>\n M ) 



return(rtdm) ; 

} / * and d e 1 m o d C ) * / 



q e t n u n ( ) { 

// read cnar.s from terminal/ computes one i nt • number 
3 3 i nt tn / r 1 , t 2 ; 
q e t o e o : 

1 2 = 0 ; 

wh i 1 e ( ( tn = oetcharO ) l = ' \ n * ) { 

ifltn ’ = ' ' ) ( 

tn = tn. - 'O'; 

i f ( t n > = 0 * * tn < = 9) { 

t 1 = tn; 

1 2 = 1 2 * 10 t t 1 ; 

) 

el s e { 

ori nt f ( "wnona erauT.ent I t rv aqain\nqo >\n M )? 

^ h i 1 e ( ( t n =• netchar ( ) j 1- 1 \ n 1 ) // erase buffer 

aoto qetneq* 

} 

} 

\ / * en d h i 1 e * / 

re t u r n ( t 2 ) ; 

} / * end qetnum( ) * / 



d e I e t e l ) { 

extern i n f i dnum I 
e<tern c n a r -lenrel [151; 

struct strtaii * n s d ; 

U u i n t iddlt/ f , f 1 ; 

£9 C n a r fin e rr ’ e t 1 3 1 r A f f l n ; 

i d d 1 t - i d n u m : o s d - \ s t r [ 0 ] ; f 1 n a m e 1 l 2 J - 1 \ 0 f ; 

if in = * n 1 ; 

// delete from recarcfile relation 
UU range o * r is recordf i 1 e 
UU delete r where r.rid = iddlt 
// delete from where relation 
U U range of wh is w n r 
uu delete wh where wh.rid = iddlt 

// initialize stackr emty 

for(f - o; f < 25; ftt) { 

f o r ( f 1 = 0; fl < 25; f i 1 1 ) psd->strelm[fl] = 



os d 1 1 ; 



> /a end 1. for * / 
osd = f«str (0) ; 

// load stackr with maintable relations 
UU range of m is m a i n t a b 1 e 

f or ( f = 0 ; f < 12; f MO flnenetf) = 1 */ 

a # retrieve (fin a me = m.crname) { 

// copy relation to stack and erase f l n a m e 

f o r ( f = 0; f < 12; f 1 1 ) { 

osd->stre1 r ntfl - f Inane t f 1 ; 
f 1 n a m e t f 1 = * ' ; 

} 

d s d h ; 

#9 1 

// begin delete by us i nq stack 

or i n t f ( " deletion in progress . . . \ n " ) ; 
wnileCffin - - 'n') { // means stackr not finished 

// dumwrtO; /* DUMMY v/RITF. */ 

/ / find last element on stack to get; if empty/ finish 
PSd = \ s t r [ 0 I ; 

ifCosd-^strelmlOl = - * ' ) { 

f f i n = • y ’ ; 

goto endle; 

> 



f = 0 ; 

while(osd->3trelm(0] * ') { 

ftt; o s d m ; 

i f ( f > 25) { 

or i n t f ( " d A 2 d 1 1\! G : delete stack overflow process' 1 ) 

o r i n t f ( " continues/ max 25 items. \ n " ) ; 
osd--; break; } 



} / * & n d while * / 



o s d - - ; 

// copy last stacx element to qenrel C 1 3 J 
f o r ( f - 0 ; f < 12; ftt) { 

genrel(f) = csd-^strelmffl; 

} 
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// call delete hv pass i nq stack pointer 
oro'11 t (osd) ; 
e n d 1 ei 

r 

} / * end while * / 

nrint f (" deletion nas he^n co'nnl eted\n" ) ; 
} /*■ end del ete( ) * / 



orodltCosdlt) / * process- delete * / 
i n t *osdl t ; { 

extern char gen re 1 [ 1 3 1 ; 
extern int i dnum; 

struct strtaq * p s d 1 ; 

I i int iddltl, d 1 ; 

li cnar g n d 1 t t 1 3 1 , d 1 t r e 1 ( 1 3 ] , * f I'd 1 t , d f n a m e tt 3 ] ; 

// i n t i a I i z e and coov qlobal to local 

os J I - osd It? iddltl = idnun; 

g n d 1 t 1 1 2 1 = 1 \ 0 1 ; d f n a n e [ 1 2 1 - 1 \ 0 1 ; f 1 d 1 t - * n 9 \ 

f o r ( d 1 - 0 ; d 1 < 12; d 1 + + ) { 

gndltldl) = qenreltdlJ; dlfreltdll = ' 

} 

i! t re Ml 2] = ' \ 0 ' ; 

it 1 range of de is qnalt 

it 1 retrievefdltrel = de.crname) where de.rid = iddltl i 
f 1 d 1 t = 1 y 1 ; 

it 1 } 

// if there is r e c o r a with delete id 1 delete and return 
i f ( f l dl r == ' y ' ) { 

ft l delete de where de.rid = iddltl 

d l = 1 ; 

II retrieve (dl = count ( de.rid) ) 

> 

i f (dl = = 0) { 

1 tt d estroy qndlt 

ii range of of is d f n a ti e 
ii delete d f where of. cmame = an lit 
> 

i f ( f 1 dl t = - * y ' ) { 

f o r ( d 1 - 0; dl < 12; d I + ) osdl ->st rel m Idl 1 - 1 ' ; 

goto endoro; 

} 

// coov stac< ton to dfnane to use next t i t e and delete 
f o r ( a 1 = 0 ; dl < 12; d 1 + f ) { 

dfnamefdll = psdl->stro1mtdll ; 
psdl->strelmtdl] - ' * ; 

} 

// if there is a oranch relation out on stack 

ii retrievefdltr^l - de.crnane) where de.rid = 0 { 

for (al = 0; dl < 12; dl tt) 

osdl->streln[dl] - d 1 t r e 1 [ d 1 1 ; 
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o s a 1 tt? 

H t> )■ 

endoro: 

f 

} / * ena cro'iltO * / 



modi f y ( ) { 

sr a cnar f I 1 2n f 2 J , * f 1 1 f * f 1 2 J 

i n t 2 f k o 1 2 n ; 

f i 1 2n ( i ) = * \ a 1 ; 
f 1 i = 1 l • ; f l 2 = ■ 2 • ? 

or i nt f ( "\n It is allowed to modify on 1 y\n\ 

oroaram DESC 2 I P T I ON \n ana\n\ 

n r o g r a m WHERE informat i onNn 11 ) ? 
orintfC" If you want to do other than this use\ 
DELETE to remove\n the listing and\ 
than use ADD to create a revised one.\n" ); 
oeqr.od: 

whi le(f 1 1 == 1 1 * : : f 12 == '2' ) { 

orintfC \ n 11 ) ; 

orintfC "-Tyne one of the following in \" \ " \ n " ) ; 
i f ( f 1 1 == 1 1 1 ) 

orintfC" \"1\" to modify record DESCRIPTION^"); 
i f ( f I 2 = = • ? 1 ) 

orintfC" \ " ? \ " to modify record M H E R E informat i on\n" ) 
orintfC" \ " n \ " MOT to do anythinQ; and RETURNNnqo >\n" ) 
f 1 1 2 n [ 0 ) = areaoc ( ) ? 

Dl2n=Afll2nt01; 
switchCfll2n(0J) { 
case ’ 1 * : 

m’d e w h C o 1 2 n ) ; 
f 11 = 1 3 * ? 
orea< ; 
case ' 2 ’ ; 

mdewh (ol?n) ; 

f 1 2 = ’ 3 1 ; 

to r ea k ; 
case ' n 1 : 

goto endmoi; 

> / *■ end switch * / 

} / * eno while k / 

encmod : 
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} / * end modify!) * / 



m 0 e w h lot ) / * rr.odify-^escripticn-where-relations * / 

i n t * p t ; { 

extern i n t i a n u m ; 

£t+ inf tnnuTr z * 

tttt cnar o d e s I 5 1 ] $ * t c h ; 

tdnum r i dnu^; o c e s [ 5 0 1 = 'NO 1 ; 

if(*pt ” *1') < /* means modify description */ 

z £ ranae of r is recoraf i I e 

£ £ ret ri evelcdes = r . r d e s ) where r.rid = tdnum { 

printf (" present oroqrem description is;\n %s\n\n"/oaes); 

£ ti } 

)• / * end if * / 

i f ( * p t = = ' <? 1 ) { / * means modify where * / 
utt range of wh is whr 

£ u retrieve(odes = wh.rdes) where w h . r i d = tanum { 

cri nt f ("^resent /i HERE information i s ; \ n %s\n\n",pdes); 

} 

} / * e n a if * / 

i f ( *p t == ' 1 ' ! : * o t == ' 2 ' ) < 

printf (" -Give new listing" ); 
i f ( * r t = = 1 1 1 ) 

orintf (" DESCRIPTION (MOT more than 50 "); 
i f C * o t = = ' 2 ' ) 

printf ( M WHERE information (NOT more than 50 "); 
orintf ("characters)\nqo >\n M ); 
fortz = 0 ; ? < 50; ztO odes Izl = 1 ' ; 

z = o ; 

w h i 1 e ( ( f c h = oetchar ( ) ) != ' \ n ' ) { 

p a e s ( 7 1 = tch; z t + ; 

i f (z > 51 ) i 

orintf (" Long line; t runcated\n\ 

only first 50 characters have been acceoted\n"); 
p d e s f 5 0 ) = 1 \ 0 ' ; 

oread* 

) 

} / * end while * / 





1 


f (z < 


51) p d e s [ z 1 


= ' \ 0 ' ; 






> 


/ 


* end 


if * / 










1 


f ( *o t 


= = ■ i • ) { 








n n 


} 

i 


rep 


lace r ( rdes 


- oci°s) 


where r.rid = 


tdnum 




f ( +pt 


= = '2' ) { 








K £ 


} 


reo 


lace wh( rdes 


= ode s ) 


where wh.rid 


= tdnum 


} 


/ 


* e no 


m n e w h ( ) * / 
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